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FOREWORD 


This report is part of a two volume set which describes a 
compressible turbulent boundary layer analysis using the turbulent 
kinetic energy approach and a computer program that is a modified 
version of MABL (Reference 1) and includes wall and coolant tempera- 
ture calculations. Volume I contains the description of analytical 
concepts to obtain the eddy viscosity by solving the turbulent 
kinetic energy equation and it shows the result of sample calculations. 

Volume II describes the modified computer program to include 
the eddy viscosity calculation and serves as a supplement user's 
manual to Reference 1. 

This work was conducted for the George C. Marshall Space 
Flight Center, National Aeronautics and Space Administration under the 
cooperative agreement between the University of Alabama in Huntsville 
and the George C. Marshall Space Flight Center under Modification 7, 

NCA 8-68. 

The author gratefully acknowledges the supply of data and 
helpful discussions with Mr. Klaus W. Gross, and the assistance in 
computer programming and checking of Mr. Alfred N. Krebsbach, 

George C. Marshall Space Flight Center, National Aeronautics and Space 
Administration. 
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I. INTRODUCTION 


This report serves as a supplement to Reference 1. As described in 
Volume I of this set, the eddy viscosity is calculated throu^ the 
turbulent kinetic energy, in order to include the history of the 
flow and the effect of chemical reaction on boundary layer charac~ 
teristlcs. Calculations can be performed for two different cooling 
concepts; that is, transpiration and regeneratively cooled wall 
cases. For the regenerative cooling option, coolant and gas side 
wall temperature and coolant bulk temperature in a rocket engine 
can be computed along the nozzle axis. Thus, this computer program 
is useful in designing coolant flow rate and cooling tube geometry. 
Including the tube wall thickness as well as in predicting the 
effects of boundary layers along the gas side wall on thrust 
performances . 

Two computer programs were developed; TBLEDY (Turbulent Boundry 
Layer Computer Program including Eddy Viscosity Calculations) and 
AIREDY (Air Flow Computer Program with mass injection of a mixture 
of hydrogen and nitrogen) . 

Since the main difference of TBLEDY from MABL (Reference 1) is 
found in Subroutine EDDY, and the Input data for the calculations 
are exactly the same as in MABL, only the solution method in 
Subroutine EDDY and the description of program output which was 
modified will be shown. 

The second computer program, AIREDY, was developed for the purpose 
of comparing the calculated results with available experimental 
data when combustion occurs in the boundary layer due to the mixture 



of hydrogen and nitrogen Injection through a porous wall. Because 
of the addition of the element. Nitrogen, N, to the elements, H and 
0, the following nine species are considered for the air flow with 
combustion: H, H 2 » H^O, 0, OH, 0 ^, N, NO, and N2, the last three 
species having been added. Therefore, modifications to subroutines 
BLKDTA, ELEMTS, EXECUT, H00DE, HPCALC, NL0UT, 0DE, PRINT, PR0FIL, 
SPCALC, TABLES, TFCBL (Main Routine), TPCALC, and VISCX were 
necessary. Common blocks in the remaining subroutines were also 
modified. 

Subroutine EDDY calculates the turbulent kinetic energy and 
the eddy viscosity, and it is the same in both TBLEDY and AIREDY 
except for conunon blocks. 

Since detailed descriptions of most of the boundry layer 
subroutines can be found in Reference 1, as well as the definitions 
of program symbols, only the modifications of the program input 
data and the printed outputs are explained. 

The sample cases are Included to illustrate the use of the program: 
one is for the rocket nozzle combustion product flow of hydrogen 
and oxygen with transpiration cooling, and the other is for air 
flow with combustion due to injection of a mixture of hydrogen and 
nitrogen. The listings of computer programs TBLEDY and AIREDY, are 
Included in Appendix A and B, respectively. 
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II. SUBROUTINES 


1. Subroutine BLKDTA 

This subroutine stores atomic symbols, weights, and 
valences of 105 elements. 

Thermal and reactants data are taken from Reference 2. The 
assigned enthalpy (ENTH) of each reactant for a corresponding temper- 
ature (RTEMP) is given in calories per mole in Table VII of Reference 2. 

The constants used in the empirical equations for specific 
heat, enthalpy, and entropy, as functions of temperature are given in 
the form of least squares coefficients as follows: 

- ai + S2T + 33!^ + a4T^ + asT^ 

* an + -A T + _£. T'^ + _z T"^ + — i T^+ 

2 3 4 5 T 

■ aj^lnT + aoT + + ^4 t ^ + + 37 

2 3 4 

The seven coefficients above are stored in the array 
COEF (i, j, k) 

where 

1-1 for the upper temperature interval 

1-2 for the lower temperature interval 

j-l,...7,for the 7 coefficients, aj, 
k-l,...150 for the number of species. 

TBLEDY considers k-1,2,... and 6 , H, H2, H20, H0, 0H, and 02, 
respectively, while AIREDY includes an additional three species, 
k-7 , 8, and 9, N, N0, and N2* 


C£l 

R 

Ht" 

RT 

R 
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Subroutine EDDY (Common to TBLEDY and AIREDY) 

The turbiklent kinetic energy equation to be solved Is 


(See Volume I) ; 


^ - 2kpAKV ^O u ) I 9 iL_I 

-- 3K + (p V + p'v') 3y 3 y 3y 

P “ ^ i/2 (1) 

_ , _ K p K 

+ 3 [(y + a p AK^'^]- pyg A* A 

3y 


Assuming that the terms containing molecular viscosities, y, are 
negligible, and considering the definition of eddy viscosity, e, the 
above equation Is written as 


3K « 


p u 3s (p V + p'v’) 3 


2 e ^ 2 + a - ypK*/^/ A 

3y K 3y 3y ( 2 ) 


where 


* P 1 3u | for p 1 3u [ < k ApK^^^ (3) 
dy 3y 


1/2 _ 

e - k Ap K ^ | > k A K (4) 

. 3y 

At the matching point where ej and Cq coincide, assume that the 
following two terms are predominant In Eq. (2), 

2 -VpK®/*/A“° 

3y 

then the substitution of Eq. (4) Into Eq. (5) yields 
, ' ,2k! to 

eo - (T) P A Cjp (j) 

This means that, at the matching point where ei “ Eq» prandtl 
mixing length, £., and the dissipation length, A could be related by 

A* 
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If we select k*0.6 and y « 0.36 In the case without mass Injection, 
then Eq. (7) yields 


A - 1.048A 


( 8 ) 


That Is, the modeling of the dissipation length should be related to 
the prandtl mixing length In the vicinity of the wall, where the 
matching condition Is considered. The polynomial relation of dissi- 
pation length Is therefore defined In Volume I 


A 

& 


f [0.2050 )* 


-0.5860 + 0.43101 

5 


(9) 


In order to nondlmenslonallze Eq. (2), the following symbols are 
defined In addition to the symbols In Reference 1: 

e* - e/y^ 

K* - K/Ur^ 

A - A/ LC 

( 10 ) 


(Note that the definition of the eddy viscosity, ^ , Is different 
from that In Reference 1. ) Then, Eq. (2) Is written as 


P*u* Ifr + (p*v*G* - p*u* - ^ ^ ) •— 


3y* 

2 e* N . G’_3_ ,ote* 5 k*_.. P*K* 


3/2 


Re^?^' '3y* ^ I 3y* ''R«rC 3y* 


(1 


:T-y 


CA 


( 11 ) 


- 5 - 


where 


( 12 ) 


3ui 




£o* T k A q p*K* R- 


and 


(13) 



Pf Ur L/vij 



(lA) 

Substituting the following definitions as shown 

In Reference 1 Into 

Eq. (11), 






F ~ 

G’ 






Re 

r 




(15) 

and 






T2 - 

p*v*G* 

- p*u* -- ~-'y 



(16) 

we obtain 






* * 3*^* 
p*"*aS3f + 

rro 3K* 

3u* ^ 

- 2e* F G' (^) + OF 

3y* 

^3K* 

3y*^ 


“ Y 

n* ^ 

P* K* 

C A 



(17) 

Define BRKT 

- 

2 FG’(3u*/3y*)^ 




TMl 

fli 

ciFG* e* 



(18) 

TM2 

m 

aF ( e*G"/G’ + G’ 

3e */ 3 y*) 

(19) 

TM3 

- 

e * ® (k 5 p*A) 

-3 


(20) 
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‘ ! 


and 


TM4 - BBKT - y TM3 p*/ (C AJ 
then Eq* (17) becomes 

p*u* 8^ + .J .2 3^ - BRKT + TMl + XM2 9K* 

3 s* 3y* 3y*2 

The above equation Is written In a finite difference form as 


( 21 ) 


(22) 


p*u* 


K* 


-K* 


>!» + (T2 - TM2) / 7 Ky + *^"m»l.n^•l ” a-fl,n-l 


K* 


-K* 


As* 


m,n 


4 Ay* 


- TMl / 1 K*yy + ~atl»ntr^ ^*a+l,n-lY 

M,n 2 Ay* J 


TM4 


(23) 


Thus> the resulting Implicit finite difference equation for the tur- 
bulent kinetic energy Is written In the following form: 

A 3 (n) K*nH-i,n+l + A2(„) K*nri-i,n + Ai (n) K*;^i,„_i ^ B(n) (24) 


where 


A3(n) 

- T2 - TM2 
4 Ay* 

TMl 

2Ay** 

(25) 

A2(i‘) 

m p*u* 

TMl 


AS* 

A6** 

(26) 

Ai(n) 

- -A3(n) - TMl 
Ay** 


<27) 
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and 


* 

B(n) - TM4 + £*-■* V.t" _ T2 - TM2 * W * 

AS* 2 ^®.n 2 ^m,n 

( 28 ) 

Eq. (28) is solved in Subroutine EDDY by calling Subroutine TRIM with 
the boundary layer conditions of 

K*n-l “ o and K*n=rHMAX =* o (29) 

The constants, k, a and y in Eq. (17) are 

Program Variable 
ZK 

ALFA 

Y - 0.36 + 42.0 F in TBLEDY GAMA 

(Wheee F is the mass flow ratio defined in Volume I.) 

Y to be input in AIREDY 

The dissipation length A is defined as BN: ^ 


Physical Quantity 
k - 0.6 
a - 0.1/k 


A 


y [0.2050 


-0.5860 + 0.4310] 


(30) 


The calculation methods of the inner eddy viscosity e^*, 
and the turbulent Prandtl number are exactly the same as in Reference 1; 
\* being presently defined as CUV. 

The remaining definitions of program variables are shown 

below. 
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Physical Quantity 


Program Variable 


K* 

CUU 

3K*/ 3y* 

cuimiN 

3^*/ 3y*^ 

UUYTMN 

6.390 or 6 993 

SDELTA 

Subroutine ELEMTS (AIREDY) 



This subroutine solves two element conservation equations for 
hydrogen and nitrogen to obtain the element mass fractions of hydrogen 
and nitrogen, an and c^, respectively, at each mesh point In the 
boundary layer. The element mass fraction of oxygen, ao. Is then 
equal to (l-ttjj - ) at each mesh point. 

The normalized finite difference forms of the element con- 
servation equations are the same as In ^ 4 * > that Is, 


^1 “ nri-1, n-1 + ^2 oSafi, n + ^3 n+1 “ ® 

The nitrogen element conservation boundary conditions are 
at the edge of the boundary layer; 

ON “ O-Ng ' ANEDGE (to be given) 
and at the wall; 


«N 


aNw ■ 




the elements, H, N, and 0 are defined In the program by lEL - 1, 2, 
and 3, respectively. 
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4. 


Subroutine H00DE (AIREDY) 


The main modification In the equlllbrlton subroutines Is the 
definition of the program variable, 0F.. In TBLEDY and Reference 1, 

0F Is the weight ratio of oxidizer to fuel. AIREDY defines 0F as the 
weight ratio of fuel to oxidizer, because the hydrogen element does 
not exist at the outer boundary layer edge for air flow. 

5. Subroutine PRINT 

The following values are calculated and printed In this 
subroutine: 


Physical Quantity 


Program Variable 

6.990 or 6,995 
(AIREDY) (TBLEDY) 

> Velocity thickness (In) 

ZDELTA 

T- (u+€) 

3y 

■ Friction (Ibf/ft*) 

A0UT(1) 

T 

P u ^ 

* Dimensionless friction (-) 

A0UT(2) 

e 

» Eddy viscosity (-) 

A0UT(3) 

z 

6 

■ Distance from wall (-) 

A0UT(4) 

K 

57 

■ Turbulent kinetic energy (-) 

B0UT(3) 

P u 
Pe «e 

■ Mass flow rate (-) 

B0UT(4) 

ei 

■ Prandtl eddy viscosity 
(Ibj sec/ft^) 

B0UT(5) 

B0UT(6) 

u+ ■ u/u^ =u//Tw/p 

“■ Universal velocity 

yt - pyiLj/p 

■ Universal distance 

B0UT(7) 
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Subroutine PR0FIL 


To initiate the calculation in AIRBDY, the profiles of the 
element mass fractions, and. are calculated as 

“H<y) " X + (“Hg - «/Ue 

** II - ajj(y)] 

and 

do (y) -0.25 ajjCy) 

The initial profiles of the turbulent kinetic energy, K*, and the 
eddy viscosity, e*, are assumed to be 

K* - 0.00005 U"^ [l-(y/6)l^ jfi ; CUU 

and 

— y* 

e* “ k A p K rlir : EPS 

7 . Subroutine VISCX. (AIREDY) 

This subroutine was modified to Include the species, N, 

N0 and N2. 

The molecular viscosity, of the species, N, N0, and 1^ 

is tabulated as a function of temperature, in the range of T*100 
through 5000*K, as in Reference 3. 
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III. DESCRIPTION OF PROGRAM INPUT 


Only the modifications to Reference 1 are shown below. 

1. Both In TBLEDY and AIREDY 

[Flags and Options] 

IC00L Integer flag, set as follows: 

*0 for no regenerative cooling 

“1 for the case with regenerative cooling and 

coolant flowing In the opposite direction to the 
combustion product flow. 

*2 for the case with regenerative cooling 
and coolant flowing In the same direction 
as the combustion product flow. 

I THERM Integer flag, set as follows: 

*0 for the case that the Internal THERM0 data 
are used. 

*1 ^THERM0 namelist is Input to Subroutine 0DE. 

IP0LY «0 No polynomlnal coefficient calculation 

“1 A set of polynomlnal coefficients for the 
corrected wall contour is to be calculated. 
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The following inputs are necessary^ when IC00L ■ 1 or 2* 
For IC00L -0, one may Ignore this Input data. 

[Regenerative Cooling Inputs] 

C0EFCL Efficiency of the regenerative cooling (-1) 

MA.SSL Hydrogen Coolant mass flow rate (Ih^/sec) 

RAMDW Thermal conductivity of the cooling tube wall 

(BTU/ft sec. *R) 

TUBEN Number of cooling tubes (-) 

[Coolant Properties Tables] 


ITZTAB 


TZTAB 


CPLTAB 


Integer: Number of points in temperature versus 

Cp£» and table 

Coolant temperature table used to obtain Cn , 
XjU and y£/*R) 

Coolant specific heat, Cp^ (BTU/lb„ *R) 


RAMTAB Thermal conductivity of coolant, Xft (BTH/ft. sec*R) 

ZMYTAB Molecular viscosity of coolant, yj. (lb„/ft. sec) 

The length of the following tables must be identical to that of the wall 
temperature table (TWTAB) . \ 

[Coolant Wall Tables] 


ALTAB Cross-sectional area of each cooling tube, ife , (f t^) 

THITAB Wall thickness of cooling tubes, t, (ft) 

TLTAB Assumed coolant temperature, (*R) 
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In the case of IC00L > 1 or 2» that is ,for regenerative 
cooling calculations, the table of wall temperature, TNTAB, Is used to 
Initiate computation. The gas side wall temperature Is Internally 
calculated as TWGCA at each local station. The concept and method of 
calculation of regeneratively cooled thrust chambers can be found In 
Reference 4. 

2. TBLEDY 

All Input data are exactly the same as In Reference 1. Since 
a strong chemical reaction occurs in the middle of boundary layers In 
the case with hydrogen Injection from the wall, the following constants 
to stretch the normal distance to the wall are recommended 

GP0 - 1000.0 and SN 3 » 2.50 
Although the constants, y “ GAllA and k = ZK, are printed out. 

Ignore them. For the constant k has been set equal to 0.6, and 
Y ■ 0.36 + 42.0 F In subroutine EDDY. 

3. AIREDY 
[Flags and Options] 

INJH2 Integer flag, set as follows: 

“0 for the case of Ideal gas Injection. The 
free stream is also a perfect gas. 

■1 for the case of a mixture of hydrogen and 
nitrogen Injection Into the air free stream 
flow. 
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• For the option of INJH2 » 1, IDEAL should be 
equal to 1, and do not input the data, PRI, 

GAMMA, and FM0LWT. AFEDGE (“0), AFTMS, and 
AFWALL must be input in this case. (If AFWALL 
is not input, the program sets AFWALL - AFTKNS.) 

•For the option of INJH2 » 0, IDEAL must also be 
equal to 1, and do not input, AFEDGE, AFTRNS, 
and AFWALL. PRI, GAMMA, and FM0LWT must be input. 

[Correlation Inputs] 

GAMA The constant y appeared in the turbulent kinetic 

equation. (This input may be replaced by the 
relation, y “ 0.36 + 42.0F, in subroutine EDDY 
as in TBLEDY.) 

Since the constant k * ZK has been set equal to 0.60 in subroutine 
EDDY, one can ignore this input. The constants, GP0 and SN3, are 
recommended to be input as 1000.0 and 2.50, respectively. 
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IV. DESCRIPTION OF PROGRAM OUTPUT 


The assvimed profiles of the velocity, turbulent kinetic 
energy, and EDDY viscosity used to initiate calculations are printed 

after the G-f unction output as 

i Mesh point number (wall«l), under the heading, N0; 

u/Ug Velocity; 

K/Ug2 Turbulent kinetic energy; 

e EDDY viscosity (Ibf sec/ft^) 

The following additional boundary layer quantities are 
printed above the profiles at desired stations: 

Reynolds number based on the 
momentum thickness 

Thrust loss due to boundary layer 
effects (Reference 5) . 

THL0SS is calculated in subroutine 
PRINT. Positive value corresponds 
to the thrust loss, and negative 
vice versa. (Ibf) 

For the option of regenerative cooling calculation 
(IC00L ■ 1 or 2) the following quantities which are mostly calculated 
in subroutine PARAMS according to the method in Reference 4, are 
printed. 


RTHETA - Rq 


Pe^eQ 

Pe 


THL0SS - [(2ir r PgUg Q 
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Name 


Description 


Units 


TLO; T£(xi - 
TLl: (x^) 

TL2: ( 34 ^ ■ 

TAW: Ta„ 

TLCA 

TWL: 

TWL2 

TWGCA; Twg 
TEMPRL:T^^'T 

CPL: 

CP SUM 


Axij ) Assumed coolant temperature In tubes “R 

at the next station towards the 
Inj ector 

Assumed coolant temperature in tubes ®R 
at the station where cooling parameters 
are to be obtained 

A ^2 ^ Assumed coolant temperature in tubes ®R 

at the next station towards nozzle exit. 


Adiabatic wall temperature ®R 
Calculated coolant temperature *R 
Calculated coolant side wall *R 
temperature 

(TLCA + TLD/2.0 *R 


Arithmetic average of the assumed and R 
calculated gas side wall temperatures 
(TWALL + TWGCA)/ 2.0 

Temperature ratio of the calculated — 

coolant side wall temperature to the 
coolant temperature 

Coolant specific heat BTU/lbm ®R 

Specific heat of combustion products Bxu/lbm “R 
in free stream 
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lUnits 


Name 

DIATUB 

THICK: 
BG: hg 

QWI 

SUMQWI 

SQHI 


SQNDSI 
HL: hj. 

V 

BEYL 

PRANDL 


Description 

Equivalent diameter of each cooling tube 
* 2 (Cross sectional area of each tube/ it ) 
Thickness of cooling tubes 
Heat transfer coefficient of combustion 
products 

Specific heat transfer rate,hg (Taw~Twi ) 
Total heat input through the wall into 
the coolant between the initial and 
present stations based on QWI 
Specific heat transfer rate calculated as 


Prw 


+ (Le-1) ? hi^ 1 
I •' w 


Total heat input through the wall into the 
coolant between the initial and present 
stations based upon SQWI 
Heat transfer coefficient of the 
coolant fluid 

Reynolds number of the coolant flow in 
cooling tubes based on the equivalent 
tube diameter 

Prandtl number of the coolant flow: 


ft 

• 1/2 

ft 

BTU/ft^sec*R 

BTU/ft^sec 

BTU/sec 

BTU/f t^sec 


BTU/sec 

BTU/ft2sec“R 
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Name 

Description 

Units 

RAMDL 

Thermal conductivity of coolant 

BTU/ft^ sec.*R 

ZMYUL 

Molecular viscosity of coolant 

Ibm/ft. sec. 

STANRE 

Stanton number defined as 

— 


SQWI/ [ CPSUME* (TAW-TWALL) ] 



Four Groups of Profiles are next printed. In Group I, the 
EDDY viscosity e (EPS) has a unit of (Ibfsec/ft^) in TBLEDY and AIREDY. 
This is the only difference from Reference 1. Group II shows the 


velocity boundary layer thickness, 6, DELTA in inches ( 6 » '^.995 

in TBLEDY and <S ■ <5.990 in AIREDY) and the following profiles: 


TAU: T Friction: (y + e) Ibf/ft^ 

TAU/ (RE*UE2) Normalized friction: — ? 

Pe»e 

EPS/(RH0 UE DELTA) Normalized EDDY viscosity: — 

PUe<S 

YTIl/DELTA Normalized distance from wall,y/d 




Name 


MO; y 


Y 

K/UE2 


RU/REUE 


Group III exhibits the following profiles: 
Description 

Molecular viscosity of combustion 
products 

Normalized coordinate (See Ref. 1) 
Turbulent kinetic energy nondlm- 
ensionallzed by Ue^ 

Normalized mass flow rate: 
p?^/Pe^e 


Units 
Ibf sec/ft^ 


- 19 - 


Name 


Units 


MIXEDDY 

UDAG: uf- 
YD AG: 



mixing length 

l/2 

Universal velocity; ut » u/u^ *» u/(xw/p) 
Universal distance from wall: 


■ py u?6/ p 

PRX Turbulent Prandtl Number 

• Group IV shows the mixture ratio, species mass fraction, molecular 

viscosity, and laminar Prandtl number. 


Except for the mixture ratio in AIREDY, this group of 


profiles Is the same as In Reference 1. The mixture ratio In AIREDY 
Is that of hydrogen to oxygen and nitrogen and Indicated as F/0. 
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V SAMPLE CASE 


CASE I 


Rocket nozzle combustion product flow of hydrogen end 
oxygen with transpiration cooling. 
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CASE II 


Air flow with combustion due to injection of e mixture of 
hydrogen and nitrogen. 
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COMPUTER PROGRAM OF TBLEDY 
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orkn nooo nn 


suBROuriNe adopt (IPuagi 

C CHAN6PS TO SUBROUTINE ADOPT . « , „ 

caoopt ado another Point to the bounoaRt uatcR and prepare por 
recalculation of the coefficients of the last t*o points* 

C0MH0N/DEPEN0/U< 250* 3 I »H( 250*3 I * ALPHA I 250*3*2) »RH0V ( 250) * SHI 250,3) 
COHHON/PROP /RH0I250*3) *SHUt 250*3) *PR< 250*3 ) *BlEI25w* 3) * 
i SHH250*2*«) *SCI <250*2*«) * T 1 250 • 3 ) * AV f 250 ) 

COMMON/TPROP /EPS (250 *3) *PRT( 250*3) *BLET(250*3) 

COMMON /YTABLE/ r TILI 250> *B<;P( 250) *8SPPf 250) » ITTILPi ITTILF * 

T CyTIL(A) 

COMHON/CFvEC /E I 250) * F( 250 ) 

COMhON/SIGMAS/SISI ( 3),SI62(3).SIG3<3),SIGR(3)*StG5l3) *S 16551 3) 

COMMON /2CALC/ eETAO.ZETA ,ZETAN,7ETAP,2STaRI3) *05212) *YZETA» 

, ytzeta*yedge 

COMMON/NORMAL/BLReF *UREF *RHOREF*SMUREf,REY INF 

COMMON/COUMY /NY*hY1 ,NY2*NY3, jo* JN, JA,NFL,NCLI»M5P,NMAK,NYI 
COMHON/STaTN /IST »TN , max I T I I ter 
common /C0N5T/ SlNlT,XlNIT,XM4X,nELTA|,5Nl,5N2,SN3,EPSLNl,EPSLN2, /C0N5T/ 
7 EPSLN3 ,C0NVRG*020Y ,ORDY,OOY5B /CONST/ 

COMMON /OMORI/ CUuf250*3) *CUV(250*3) *CVVI250*3) ,CW*»250,3) ,GAMA,ZK /OmORI/ 

0IHEN5I0N 5U8R(3) 

data SUeR/5HM0MNTM*6HENER6Y *6HELFMTS/ 

increment Y-C0UNTER5* 

NY«NY^| 

NY |aNY»| 

NY2«NY»2 

rXTENO EDGE PROPERTIES TO NER POINT, 

00 500 ja|*3 

UINY* Jl-UINYI ,J) 

HINT* J)aM(NYI ,J) 

SHINY, J)aSH(NYI , J) 

CUUINY,J) ■ CUUINvIiJ) 

CUVINY.J) ■ CUVINvI.J) 

CVVINY,J) ■ CVV(NYt*J) 

CW«INY,J) ■ C*RlNYf*J) 

00 too IEL«I *NEL 

100 ALPHACNY, J, lEL) ■ ALPHAINyI ,J,IEL) 

RMOINY*J)aRHO(NYl ,J) 

SmUINY, J)»SMU(NYI ,J) 

PRInY, J) apRlNYl , J) 

BlEINY, j)»BLEtNY I , j) 

IFIJ*GT,2)G0 TO 2)0 

00 200 ISPal *NSP 

SHI INY, J, iSPIaSHI (NYI * J* ISP) 

200 SCIINY,J,1SP) • SCI INYl * J, ISP) 

210 TINY*J) • TINYI * J) 

EPSINY,J)«EPS(NY| ,J) 

PRTINY, J)«PRT(NY I , J) 

500 BlETINY,J) • 8LET(NY|,J) 

C 


/ytable/ 

/YTaBLE/ 


/ZCALC/ 

/ZCALC/ 
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C rXTENf) RHOV USING 3 -POINT OERtVATtVE »PPRO* I MAT ION AT EO 6 E. 

C 

RHOV<Nr)«RHOV<NVI >*<R hOV(nT2-| »-R.*RhOV«NY2)^3»*RhOVINYI n/2. 

c calculate e and r at ny, 
c 

EINYI»RhO<NY, ja)*b 6 P<NY)*ZETaP*YTIL«NY»/ZcTa 
r(NY)*BGP(NY)/l2ETA*ZCTAafteYtNr> 
c 

C calculate appropriate SISMAS EOR PUSH-OORN storage at NY - 2, 
c 

NY3-NY2-I 

60 TO ( I 100, I 20 O 1 I 300) I IFLAG 

c 

C calculate SIGMaI for momentum equation. 

c 

IlOO StGI(|)> SMU(NY3,JA) * EPS(NY3tJA) 

S|G|C|)« SMUlNYZ.jA) * EPSINYZtJA) 

SO TO MOO 
C 

C calculate SIGNaZi SIGMA3, and SIGMAH for emersv equation, 

c 

1200 00 I2S0 KbNY 3,NY2 
taK-NY3a| 

Tm| ■ EPSIKtJA) 

TM2»SMU<R,JA»/PR(ic , JA) 

Tm3»TM|/PRT(K, JA) 

Sl62<L)»TM2aTM3 

St63(L )>SMUIK , JA ).TM2aTMl.TM3 

I2S0 SIGRILI • TM2*(Bt.E(F,jAI - 1.0) ♦ Tm3* ( RLET I K » Ja » - |»0) 

GO TO MOO 
C 

C calculate sigmas for element equation. 

c 

1300 00 1350 K>NY3,NY2 
L«IC-NY3a| 

1350 SI65<L) ■ SMII(K,JA)«RLEIK,JA)/PR(F,jA|«EPS(KtUA)» 

7 BUET IK , JA ) /PRT IX , JA » 

IROO WRITE lAiTOOQ) SUgR ( I FL AG } , I ST ATn , | tEr 

9000 FORMAT </H9n POINT WAS ADDED TO "OUNOaRY LAYER |N SUBROUTINE 
T IIH at station* 15, MH AMD I TER AT I ON , I 3/ I 

RETURN 
ENO 


* A a , 
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SUBROUTINE ANSWER 

COHHON /POINTS/ HsUM I I 3 » i SSUM ( I 3 ) , CRR ( 1 3 » , OL V TP C I 3 > { OL VPT II 3 > » 

; 6AMMASI 13) ,PM3) .T,PPP< I3» ,«»M< 131 ,SOnVEL< I3» t 

, TTTII3) 

COHMON/SPECES/COEr 12,7,30) , S I 30 )., EN ( 30 , I 3 ) , ENLN I 30 ) , HQ I 30 ) , 

] DELNC30) ,At | 5 , 30 » , SUB < 3(j , 3 ) , I OSE I 30 ) , T ENP < SO , 2 I 

COMMON /MISC/ ENN,SUMN,TT ,S0, ATOM! 3, lost tULMTC Ig) ,0pnS» , 

7 BOP (4 5, 2) ,TM,TL0W,TMI0,THI6M,PP,CPSUM,0P,E0RAT, 

9 HSUbO,HPP«2) ,RH0I2) ,VMIN(2),VPLS(2»,RP(2), 

. NAM£( |5,S) ,AnUM( is, si ,PECWT( I S I , EnT H ( I S ) , PAZ It S ) , 


, RTEMPI tSi ,P 0 X( IS) , 0 ENSHS» ,TUN 

COMMON /INOX/ C 0 Nv 6 ,TP,HP,SP,M 0 LFS,NP,NPT,L,NS,KMATiIM*T,tQ| ,NC, 

i jS 0 t,JLl 0 ,tC»t 02 

EoMMOn/OUTRHo/OEmI 13) 

PRESSURES ARE STORED IN PPPII), 
temperatures are stored |N TTTII), 

rOMPUTE SOUND speed SONVEL | I) , 

DO *»0 I^UMPT 

SONVELlf) ■ 3 . 28 OR 0 *S 0 RTlB 3 !R. 2 TP 36 O* 6 AMMASn )*TTTn )/»mU n 
CALCULATE VlSCOSITy, PRANOTL NUMBER, AND THERMAL CONDUCTIVITY, 
CALL VISCX 
calculate DENSITY, 

DO AO I«I,NPT 

OENI I ) ■ PPPI I)»WM(I)/(TTT(I)* 1 ,B) 

AQ OENII) > 1 , 3 * 8838 ) IAA*OEN( I ) 

RETURN 

End 


A 2 
/POINTS/ 
/POINTS/ 
/POINTS/ 


/MiSC/ 

/M|SC/ 

/MISC/ 

/M|SC/ 


/MISC/ 

/INOX/ 

/INO*/ 


A |T6- 
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n r\ 


C 


block data 


A 

A 


1 

2 


C 


C 


DIMENSION at AMI 3,51 I , A TEH ( 3 , 5 m ,OATEl 2,3Q) 


COMMON /MISC/ 

7 

2 

3 

II 

COMMON /INDX/ 


I 


ENN,SUMN,TT,SO,*TOM<3,|o5) ,lLMTC I5» ,Bons> . 

15 i2) »’H»TL0I»,TMIO»TH!6 H»PP,CpSUM,OF,EQMAT» 
hSUbO,HPP(2I .PM0«2I ,WMIn<2» ,VPLS<?» ,WP|2) , 

NAXr( IS|5) |*NUM(|5,S) .PfCPTI 15 » tEMTH( |5) .PAZMS) , 
RTEmP( IS) .FOX ( 151 .neNSf I5> ,TLN 

CONVG |TP ,HP,SP ,h 0UF5.NP,NPT,U .NS.lfMAl , IMATiIQIiNCi 
jSOL.JLIQilC.IQ2 


LOGICAL MOLES 

common /SPECCS/ COEF(2.7.30) .SOO) .EN(30.|3I .ENlN(IO) .HOOO) . 
i 0FLN( 30) . A ( 15.30) .SUB(3C.3I , IUSEC30 ) .TEmPiSO.2 I 

INTEGER SUB 

COMMON /INPUT/ BlR.30) . IP0LY.ITHERM.MTM.30) .NPrOO.NSPEC. 
i PHAZI30) .T| (30).T2<30) 


equivalence <ATOMu,||,ATam),(ATOM|i,52),*TEM»,(OATE.EN) 
ATOMIC symbols. *EIGHTS. AND VaLFNCES 


A R 

/M|SC/ 
/MiSC/ 
/MlSC/ 
/MJSC/ 
/MISC/ 
/iNDX/ 
/ iNOX/ 


/INPUT/ 
/ 1 nPUT/ 


A IS 
A U 


C modified for dummy elements M) H c N 0 . flOMRlalOS elements 

^ A 1 7 

DATA ATAM/jHH . I . ^gS • I • . 2MHE . R . Qo 3 . g • , jHL I . A.QRo. | . . zHBE .V.nl 3.2.. 

|2h8 *I0«*20i3» i2hc . I 2 . 0 I I i R • . 2hN . I R *009 . 0* • 2ho . I A . OcO t >2 • . 2 hf i A IS 
2|S»000»"I • 1 2hnE* ?:; • I *3 i oi » 2 hnA . 22« SR 1 . | ♦ . 2hm 6 • 2R • 32c . 2 • . 2 h A t t 26.98 A Zg 
Sg • 3* • 2MS I . 2 ^ . fjSg . M • . ZMP . 3g * R?5 .5 . . 2 H$ . 3^ • gAA . u • . 2MCL . 35 • R57 . ~ | . . A 21 

ii2haR* 3R*RRR.0« .2Hr • 39 • I 00 . I . .2Hr a .R0«0R0i2. . 2H5C . RR *R60. 3 • . 2 hT | . R A 22 
57*900. R.,2hV .S0<950tS* .2HcR.52.0l0.3.,2HMNtSR;«R0.2. A 23 

a3«.2HC0.58*9Ro. 2*.2HN| tS8.7l0i2*.2HCU.A3*5R0.2*,2Hlu.65*380.2*.2HG A 2R 
7A.69.720. 3* .?HGE.72*600.R. . 2 haS . 7R i 92o . 3. . 2HSE .78 . 9io . R . . 2 HRR . 79 . 9 a 25 
5 I 6 *•‘1 • .2HKR .83*800 1 0* . 2mRr . 85.R80. I • . ZH5R*87*630.2. , 2HY .88*9|0.3* A 26 
9. 2HZR.9I *220. R* .?MNB.92*9|0,5..2MM0.95.95n.6. .2 hTC. 99*000.7* .2HRU. A 27 
5l0l*l 00 *3*. 2 HRH.IC 2 * 910 * 3 *. 2 MPD . I06*R00* 2* •2HAG,107*8ao*l**2HCO.II A 28 
s2*RIO*2*.2HIN. MR. 820.3* .2hSN, | I 8.700.R* . 2 HSB, I 2 I *7^0 *3*/ A 29 

DATA ATEM/2HTE . I 27 * 6 10 * R. i 2 H I * I 26 * 9 | g , . 1 , , 2 H XE , I 3 I * 300 . 0 * . 2 HCS . I 3 A 30 
i2*9l0.|*,2HBA.I37.360*2*i2HLA.I3P*92O.3*.2HCE*lRO*lao*3**2HPR*IR0* A 31 
2910.3* .2HN0* I RR*270.3. .2HPM, I R7.000. 3, ,2hsm, 150*350.3* .2HCU. 152.00 A 32 
30 . 3 * .2HG0 .I57,26o,3*i 2HT8,|58.9 30.3.. 2HPY. 162*5 |0* 3 i , 2hh0. |6R*9R0* A 33 
ii3**2 her. 167*270.3*. 2 HTM, l6a*9R0*3**2HV8,|73*0RO,3..2HLU.I7R.99O,3* A 3 R 
5 > 2 HHF , 178 * 500 * R* * 2 HTA • I 80 . 950 , 5 * « 2 HW . I 83 . 860 * 6 . . 2HRE . | 86 * 220 . 7 . . 2 A 35 
AHOS* 1 90.200.R* *2H|R. 19 2.200. R..2MPT. 195. 090. R* .ZHAUi 197*000.3* .2HH A 36 
7G. 200 * 6 1 0.2* . 2HTL .20R. 390. I . . 2HPP * 207 . 2 | g , 2 * .2HB I .208*990.3* . 2HP0. A 37 

8 210*000 • 2* .2HAT . 2 I 0*000 *0* * 2HRN . 222*000*C* . 2MFR , 223 * OOP . I..2HRA.22 A 38 
96*OOO*2**2HAC.227.o00*3**2HTH|232*00O.R*.2HPA«23I*0PC.5**2HU .238. A 39 
9000.8* *2HNP*23 7*0'^i}*S. * 2hpu * 2R2 * 000 * R • * 2H AH . 2R3 * 000 1 3 * .2HCM.2R7.00 A RO 
«0.3* .2HR5 .2R9.000. 3* .2HCF.25 | .000*3* .2HFS.2SR*0e0.U* . 2 heM. 253.000 . A R | 

9 0* .2HMD.2S6.000.3* * 

C DUMMY M C N 0 

A 2HHZ* I *008 . I * . 2hC2 * I 2 * 01 I . R. . 2HNZ . I R * 0?8 . 0* * 2H0Z * I 6 *000 * *2 * / 

^ A R3 
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c 

C nominal ooc thermal data and reactants oaTa 

c 

data ISUBUini I-ltAJ/RMH ,**HH2 »«IHH20 .MHO tHH02 /, 

1 (OATEt I . 1 1 (OATCt 2i 1 > t t ■l»A)/3HJ Tt3H/ASt3HJ 3»3H/4lt3HJ 3i 

2 3H/&I.3HJ A,3H/A2(3HJ 3,3H/AA,3HJ V • 3H/ A«/ , ( ( Nt ( I • J t «B ( I » J ) • 

3 I ■ !•«)• J • (1.0, 2H i0*0,2H •0*0t2H iC^O.ZHH •2*0i 

<• 2H tOtO»2H (0»0i2H i0*0t2MH |2«0>2H0 •l•0t2H •0*Q|2H .OtOt 

S 2H0 |l•0t2H iO*(;i2h i0«0i2h i0»0t2H0 t>*0t2MH ll•0•2H tO«0» 

A 2H »0*0i2h 0 »2*?t2H •0*0 i2h iOtOt2H ;o»0/ t (RHA2I I) • I • l>4l/ 

7 A*|H6/>(T|mi I • I tAI /6*300*0^i (T2( n . I - I « A ) / A*S000*0/ > 

A TLOWtTMIDiTHtGH/300f Oi lOOO.OiSOOOiO/ tNAMEl I t I > i ANUMI I , I ) , 

9 NAmE( 2. I ) » ANUHl 2 , I ) /2HH ,2.0t2HO . 2 • Q/ , REC«T ( I ) . PCC NT ( 2 > /2« 1 00* 0/ 

A .MOLES/.EALSE./ iENTH/ISaO.O/ tEAZ/I5*|HG/, 

A RTEMPI|),RTEMPl2»/2*2R*tI5/iF0X(|)tF0X<2j/|HEt |H0/ tOENS* I » • 

C OENSI 2> /2*0*0/ tNSFEC/Z/ »NPR00/A/ t I THERM/Q/ » • SUB I I • 2 » » SUB ( I , 3 J , 

0 I • I.A)/I 2 *AH /, (NAME! ! , 1 » ,NAME<2.n , I • 2 »S>/ 8 * 2 H / 

OATA ( ( (COEFI ltJ,K) , J • ItT), I • l«2l, K ■ I • A I /• i SO , A *0 1 0 » 

1 2SA7I .AZTt-O.AAQ t i7A3i2iS0i A*0*0i2SA7| »A27,*0*AA0I I7A2.3* I00I90I , 

2 5* I I I9AAAE-M,5«2AAA2I0E*'8 I-3.H90997 3E-I 1 ?3« 49 AS3A9E- I S t“877 # 380*»2 
j»-I» 9A29A2I t 3,057 mas I , 2 • 4 7 AS 20E- 3 , *5 • 8099 1 A2E-A i 5 » 82 1 039 I E-9 » 

M •|.8l22739E-l2,-988.90R7A,-?,2997054,2»7iA7A33,2«945l37AE-3» 

S -8,022A37HE-7, I • '322448 2E- 1 0 • -A » S A72 I ASF- 1 5 i-29905. A 24 , A • 430547 | , 

A A*070i27S,-l,l08MA99F-3, A. IS7I I 80E-4 ,.2*9437A0AE-9 i 8 *0702 I 03E- I 3 • 

7 -30279. 722 ,-0*3 2 270094, 2*5 A20S94, -2 *75504 l9C-8,-3. I 028033E-7, 

8 A*S5l047Ae-l2,-A.3A8n5|5E-l4,2923O*803,A,92O30B0,t*9AAA287, 

9 -I*A38|4A5E-3,2* A2I03I4F-4,-I ,4028A32E-9;3*890a94AE-I3,29|A7*4AA, 


i 2*9A399A9,2.910 Aa 27,9,593|A50E-9,«1 *9AAI902E-7;|,3754AA4E-I I , 
q I*A22A5A2E»l4,3935.3eiB,5. AA23AA5,3*837S9A3,-I ,0778858 f-3, 

f 9, A830378E-7,! *87 I 3972c* I 0,-2 *2571 q9AE- 13, 34A1 ,2823,0*99370009, 

U 3*A2|9535,7*34|8 2AAE-A,-I *9A52228E-7,3*Ai0l5S8c-l I , -2 , 89 A5A27E- 1 5 
r*-l20l*9825,3.AI5p9A0,3*425S985,-t *87921 8AC-3.7.0S5ASAAE-4, 
r A.7435137E-9.2* I 55S993E- I 2 , - J 0A7 * 522a , A * 3052778/ 

END 8 41 


nEN 

-01 
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SUBROUTINE BNOCNO 

CBNOCnO CtLCUCATE flUMTITIES NECtSSART EOR BOUNOART CONDITIONS AT 
rORRARO STATION. 

COMMON/ I NOEP /S 1 05 i * i 0 * * * 2501 .OT 

COMmON/XTABlC/RRTaBISOOI iXTABRRl^OO) .LRRTAB, IRWxP.CRRX (4l , 

; PETaBISOOI *XTABPEI500> .LRCTaB, IPE*P,CREXU> . 

; UCTaBISOOIi CUETaB» tUExP.CUEX(A) . 

3 XTDUOX(*iOO) .LOUOXT. lOUoXP 

COMMON/LTABLE/TRTaBI |00| fXTABTRnOO) .LTWTaB, ITWtP, 
i SMOTABI I00> tXTABMOl I00» , LMOT AB . I MoXP 

COMMON/GEOM /RR«2»,0RRDX(2),ThWI2) 

COMMON /ZCALC/ ZE T AO , ZET A , ZET AN , TE T AP , 2ST aR I 3 ) . OSZ ( 2 » , Y7ET A , 

i ytzeta.yeoge 

COMMON/WALLBC/TWAILiSHRACL tHWALL.SMORO.SMoW.SMORN 

COMMON /E06EBC/ Tro6E|SMCOGr.HEOSC.UED6C.PED6C8,APE0aE»oUEDS0, 

} oijeos.dueosn.opeosn 

COMMON/NORM aL / BLR rF ,UREP I RMORfF . SMUREF . REY I NF 
COMMON/OPT I ON/ I OF »L »L AMNR . I NCOMP 

move FORRARO quantities to back QUANTITIES, 

OUEDSO>OUEOSN 
SmORO«SHOWN 

momentum equation boundary CONOITIONS. 

AT mall U > 0 

AT COSE U ■ OF 

CALL LCURV I X >OX , X TOUDX ,UET A8 .LO'IOXT , I OUOXP ,OUEoX I 
DUEDSNaDUEDX«C0SlTHR(2) I 
DuEOS-O.S*(OUEDSN«OUCOSO) 

integrate to obtain UE at forward station, 

uedge»uedge*oueds»os 

CONTINUITY equation BOUNDARY CONDITION, 

AT mall RMQV • MOOTR 

CALL LCURV 1 X .OX , X T ABMO , SMQT AB t L**OT AB , I MOXP , SMORN I 
SmORN«SmDRN/ ( RHOReF«UREF»ZETANI 
SMORaO.SwISMDRNTSHORO) 

eNERGT equation BOUNOART CONDITIONS, 

AT wall M ■ hr 

AT edge m • he 


/zcalc/ 

/zcalc/ 

/EOGEBC/ 

/EDGEBC/ 
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non n o 


CILl. LCUBV ()(*0*,*T*8TW,T<*T*B,LT*TA8»IT*XP,TWALt> 

CAUL XNTCPP (X*0X,PE06CBi0PE0X , tPEXP,XTA8PB»PETA8itPCTAB, 
] CPEX.IPEXPT 

OBTAIN SHE06E* 

SHE0€E>HE06E«UE06f*UE06E/2t 

IF( t0EAL*fiT*0)S0 TO 300 

fAtL HOOOE TO obtain SHWALL AND H«ALL» 

CALL HOOOE (3) 
retuph 


C 

c CALL I 6 O 0 E TO ObTaiN SH*aI-1- *^^0 M*ALL» 

^3qo call I 6 O 0 C I T*aLL iShWB '^EDGEB • • • DOHHT 1 toUMMT2 toOMMf 3 I 

Sh8*LL"SMWB/ I urBp«uref* 

HWALL«SHWaLL 

RETURN 

end 


Subroutine contnu 

CCOnTnU integrate continuity equation from wall to edge to obtain 
c RMOV PROFILE aT “ ♦ 1/2. 

c 


CONMON/OEPENO/U >25013) »H< 250.3) • A LPH A ( 2SQ ; 3 , 2 ) t RHOI ( 25 q > . SH ( 250 » 3 ) 
COMNON/INOEP /S.Ds,X|0X,Y(250) .OY 

COMMON/PROP /RH0(250i 3> tSMU(j50.3) »^R(2S0»3> »8tEl250.3) t 
T SHI (250. 2.8) .SCI ( 250.2. A| .TT250.3) .AVf250) 

COMMON /YTabLE^ YTiL«250).Bf,P»250).BGPP«250).lTTIL»’ilTT|LF» 

T CyTILIP) 

C0HM0N/6E0M /R«(2) •0RWDX(2) .THNI2) 

COMMON /2CALC/ 2ETX0.2ETA,ZETAN.2ETAP,ZSTARt3) .0SZI2) .YZETA, 

? ytzeta.veoge 

COMMON/RALLBC/TWAlL .SHRALL .HRALL .SM0»0,SM0»,SM0RN 

common/const /SINiT.XINIT.XMAX.OELTAI ,SN| ,SN2.Sn3.EPSLNI .EPSLN2. 

7 EPSlN3.C0NVR<5.020Y.0R0T,00YSQ 

COMMON/COUNT /NY.NYI . N Y 2 . N Y 3 . JO . JN . J A , NEL , NEL I » NSP » NM A X , NY I 
COMMON/NERII /J20.UEK .RHOEK 


ttable/ 

ytable/ 

ZCALC/ 

zcalc/ 


80 - 




fNiriAL CONDITION - *T WALL WHOV • MOOtw 
RHOV! I »«SMO» 

INITIALIZE PUSH-DOWN STORAGE* 

RUHNI«RHO( I * JO) *U( I I JO) 

RUM|NI>RHO( I • JN)*U( I I JN) 

R«AVE«O.S*<RW( I )*WW(2) ) 

DRNOS*O.S«(SIN(THWI I ) ) *S I N ( THW < 2 )) ) 

DO too I«2|NY 
RUHNaRHOI I t JO ) *U ( I t JO ) 

RUHINaRHO) I » JN ) • U ( I • JN ) 

DwUDSa(RUMlN«RUMlMl-RUHN*RUMNI )/<2*«OS) 
ORUOTa(RUH|N*RUMN.RUM|N|-RUMN| )*02DY 
RUNHNHaO*25« ( RUM I h«RUH I N ) ♦ RUMN^RUHN t ) 

6PNHaa*S*<8GP( I-l lYBGPI I » » 

TTNHao.S*<Tf ILI I-»)YYT!L«I)) 

RHOVI I )aRHOV ( I- I ) ♦OT* ( -ORUOS/6PNH-FLO*T < J20 ) •RUMHMHaORWOS/ 
I <GPNH*RWAVE )*ZCT4P/ZCTA*TTNH«0RU0Y) 

rUsh-oown storage* 

RUMNlaRUMN 
too RUHINI a RUM)N 
RETURN 
END 


SUBROUTINE CPHS A ) 

COMMON/SPECES/COEF (2*7 .30) • S ( 30 ) lEN I 30 , | , ENLN ( 30 ) . Hq ( 30 ) * 

7 0EUN(3O) lAl )5,30) tSUB« 3p,3) , I USE <30 ) , TEMP I 50, 2) 

_COMMON /MISC/ ENN,SUMN,TT,S0,4T0M(3, I05» *LLmTM 5) ,BOI 15) » /HiSC/ 

7 BOP) )5,Z) ,TM,TL0W,TM|O,THIGH,PP,CPSUM,oE,EQRAT, /M|SC/ 

2 HSUbO,HPPI2) ,RM0)2) ,VMIn( 2) ,VPLSI2) ,WPI2) , /MiSC/ 

3 NAm(t) t5,5) ,AnUM( 15,5) ,PECWT) 15) ,EnTH( 15) ,FA2( )5) , /MiSC/ 

a RTEmP) 15) ,POX ) 15) ,OENS) 15) ,TLN /MiSC/ 

COMMON /IND*/ C0NV6,TP,HP,SP,M0LES,NP,NPT,L*NS,ICMaT, IMaT, IQ) ,NC, /INOX/ 

1 jSOi. , JL 1 0 , 1 C , 1 02 /iNOX/ 

C A 12 

J • I 

»«•» A 13 

IP »TT.LE*TMI0) Ka2 A | <) 

PR»0 A IS 

CPSUMao. A I A 

THE TEST FOR EQUALITY BETWEEN NON-INTEgPRS MAY NOT BE MEANINGFUL* 


81 - 



n r\ n 


20 


ir (CocrtK, I ,j» .NE.o* > so to 30 

IF I lusei J) *I.T.O) so TO “O 
K-I 

IF (KK.rO.D l<»2 

30 s< J»«u MCOCF(K ,5 , J) / *♦ , J«TT*COEF<K ,H, J J /3, ^•TT♦cOEP^K ,3, J) /2t )»TT> 
TC0EF«Kt?tJ» )*TT*C0EF(F,1 t J ) • TLN^COEF ( K , 7 , J J 
H0(J>*<(((COEF(K,StJI /5. » »TT*C0EF(K t*«, »*TT4.C0 £fIK, 3. J»/3. »*TT 

^♦COEFIK,2.J^/2•)•TT♦COEF^K,^,JI♦COEF^K,A,J»/TT 
CPSUH«CFSUH^U( (COEF(F,S, J)*TT^COEF<lC,«*, jj ^•TT♦COEPIKi3t J> »*TT-»C0E 
TP(K*2,J) »♦TT♦COEF (K f I , J ) ) *EN ( j , NPT ) 

IF (KK.FO.OI SO To mo 

KbKK 

KK«0 

«*0 If IJ •E8# NSI RETURN 
Js I 
GO TO 20 
END 


17 

IS 

IT 

20 


23 

2^ 

2S 

25 
27 

26 

29 

30 

32 

33 
3S* 


SUBROUTINE CPSPEC (TMPR,NNPT) - t« 

CCPSPfC this ROUTINE H*S BEEN MODIFIED FROM OOE SUBROUTINE CPMS TO 
C*LCUL*TE CP FOR EACH SPECIES UR CAt/M0U-0C6 Kt ANO CPBAR 
I IN CAL/6M-0E6 * > • 


« IN CAL'SM-OES « ' • 

COMMON/SPECES/COEF <2iT| 30I *S(30> |ENl30fl3l»^^I«R*20l*UOl30l» 
0ELNI3O) |AII5,30) ,5UB(S0,3) .lOSEOOl »TERP«S0,2 
COMMON /MISC/ ENN,SUMN.TT,SO,aTOMI3,I05),LLHTMSI,BOUS). 

BOP( I5|2» ,TM,TLO*ltTMIO.THt6HtPP.CPSUM,OF ,E0RAT • 

HSUf>0»HPPI 21 iPHOI 2« , VHInI 2» ,VPLSI 2> *RPI 2» t 

NAHeUS.S) . ANUHI 15,5 1 ,PECWTII5> tENTHI IS) ,FAZ MSI I 

RTEmPUS) ,FOX( 15) ,DCNS< IS) iTLM 

JMMON /INDX/ con vS , TP , HP , SP ,M 0LES J NP ,NPT gL , ns »FM*T I I Mat , I Q 1 »R< 

icm . If t 0 .fr .102 


/MiSC/ 

/wise/ 

/M|SC/ 

/MiSC/ 

/M|SC/ 

/INOX/ 

/iNOX/ 




c 

J«I 

K«1 

|rCTMPR#LE»TMio)K«2 

KK-0 

CF8AR«0« 

• THF TEST FOR EQUaLITv BETWEEN NON-INTEGERS MaY NOT BE MEANINGFUL# 
20 IF fCOEFlKtl tJ)#Nr#0#> GO TO 30 
IF ( lUSEf J) •tT#0> GO TO WQ 
KK«K 
K«1 

IF (KK#EQ#|) K»2 


A 12 


A t3 


A 15 


A 17 
A IS 
A 19 
A 20 
A 21 
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30 C^MJ) • C0EF(K,l,J) ♦ COEF ( K , 2 , J ) *THpR ♦ COEFItC »3» Jl •TMFR»«2 ♦ 
I C0EF«K,*I, J»«TMPR**3 * C0EF<F,5t JI*THFR**H 


CPIlJI ■ 1 .9A7I6S3*CP| IJI 
CP8AR»CPBAR>CPI IJ|*ENIJ,NNPTI 
IF (KK.EO.OI go To 90 

A 

28 

K>KK 

A 

29 

ICIC>0 

A 

30 

IF <J .Eo. NSi Return 

JmJ* 1 

A 

32 

60 TO 20 

A 

33 

End 

A 

35- 


SUBROUTINE DEBUG (SNAHE) 

COEbUs debug routine for exit on program-detected FRROR 

c 

cohmon/statn /ISTaTN.MAXIT, iter 

c 

WRITE (6t9000) SN»ME» ISTATN.ITEW 

9000 format I/29H EXIT CALLED EROM SUBROUTINE .ABtllH AT sTATIONtlSi 
; INH AND iteration, 131 

call SUMTAB 

CALL EXIT 

return 

END 


SUBROUTINE OUMPIT 

coumpiT dump matrix coefficients for a given difference equation. 

c 

CONMON/OEPENO/U(2SO>3) ,H<2S0f 31 t ALPH A ( 2S0 . 3 ^ 2 ) ,RH0V(2 Sq) ,SH(2S0i3) 
COMMON/mATRX /A(2S0(3) •BI2S0* 

COMMON/EFVEC /E<2S0> tFI2S0l 

COMmON/SIGMaS/SIGI ( 3)tBI62<3).SIG3(3).SIG<M3).STGS(3)iSIGSS(3) 
common/ COUNT /NV,MY|,NY2,NY3,jO,JN,JA,NEL,NELItNSP,MMAX.Nyi 
COHMON/STATN / I ST A TN , M A X I T , I TER 
C 

I*! 

write U,9000) ISTATNiITER,I,U(ItJNl.H(|iJNt»SH(I,JN|,RHOV(I> 

WRITE U,90I0) ( I , I A( l-t • J) iJ>l .3) ,B( l-n ,E( n ,F( II ,U( I ,JNi , 

I HI I ,JNI ,SH( 1,JN) ,RHOV( II ,|a2,S) 

nyl»ny-s 
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«R|TE (6«9OI01 ( I • I A( ft ,J> ,ja| ,3> tB( I«n ,E( n trn ) iu( I ,JN) • 

i H( t t JN) tSH( I , JN) ,RHOV( | ) ,laNVt»NV| I 

I»NY 

WRITE (&.9O20) t *U( I t JR> iH( I f JN) «SH( t f JN) ;R hOV< I I 
WRITE U«9030l <S|6| ( I) ,SIG2( I I ,SIG3( n ,S16R(I I ,S165( II • 
i SIsSSI II .1-1 ,3) 

RETURN 

9000 FORMAT I /2 I 6/ I 10 t 72 X , | PME I 2 . <4 1 
9010 FORMAT l||0ilPI0E|2«9l 
9020 FORMAT I 1 10.72X t I P9CI 2t 91 
9030 format (ISX.IPAEI2.9I 
END 


subroutine EOOY 

C CM4N6ES TO subroutine EDOT 

CEOOT CALCULATE TURpULENT TRANSPORT PROPERTIES. 

^ COHMON/OEPEND/U(2S0.3I .MI2S0.3) . ALPHA ( 2S0 . 3 * 2 I .RHOV I 2S0 1 .SHI2S0.3I 


COMMON/ INOEP /S.0s.X.0X.T(250l »0V 

COMMON/PROP /RH0(2S0.3I .SMU(250.3> .RR(2S0.3l .B lEIBS0.3I . 

7 SH| (2S0.2»*> iBCI (2S0.2.AI |T(2S0.3| .A«(2S0I 

COMMON/TPROP /EPS I 280.3 > .PRT ( 250. 3 > .RLET ( 2S0.3I 

COMMON /YTABlE/ YTILI250I .Br,P(250) .BSPP(2S0I .IYTILPiIYTILF. /YTaBLE/ 

7 CYTIL(6I /YTaBLE/ 

COMMON /2CALC/ 2E T AO . 2ET A . ZET AN . ZET AP . ZST *R ( 3 I . OSZ ( 2 I . YZET A . /ZCALC/ 

I YTzETA.YEDGE /ZCALC/ 

COMMON/W ALLBC/TW all .SHW ALL ,HW all .SMOWO.SMOW, SHOWN 

common /C06EBC/ TEOGF .5HE06E. HEDGE, UEOSE.PEOGEB.AFEOGE.OUEOSO. /EOGEBC/ 

7 OUEOS.OUEOSN.OPEOSN /eogebc/ 

COMMON/NORM AL/BLReF, UREF .RHOREF, SMUREF, RE Y INF 


COMMON/CONST /SINiT.X INIT.XMAX .OELT aI ,SN| ,SN2,SN3,EPSLNI .EPSLN2, 

7 EPSlN3,C0NVRG,020Y,09OY,OOYSQ 

COHMON/COUMT /NY.nYI ,NY2,NY3, jo, JN, JA.NEL.NELI .nSP.NMAX.NYI 
CONHON/NEWI /ALEwlS.TLEWIS 

COMMON /EFVEC/ El 2501 ,F(250| /EFyEC/ 

common /MATRX/ a ( 250. 3 > ,B ( 250) /MATRX/ 

COMMON /OMORt/ CUu I 250 . 3 ) . CU V ( 250 . 3 I ,C V V I 250 • 3 » . CWW I 2So . 3 I .GAMA . 2K /OhORI/ 
common/muzz Y/SOELT A 


- 84 - 


non rv no r> ^ 


(•••• FIND SOELTA at U*C«TT5 *UE FOR P«lR» MR»*t NE* LAMDAi JULY 12*1973 •••• 
Do 3S Fa| *NY 
l•Nr♦|•K 

SXIaABSlUt 1 * JN)«UED6E) /UED6E 
IFtSXI •GE*0*00S) 60 TO 30 
SXjaSXI 
60 TO 3S 

30 ToEUTA»V< !♦! »-0Y* ( SX2«0*005) /1SX2-SXI 1 
60 TO 39 
3S CONTINUE 

38 CALL xnterpitoelta.soelta.oummti ,iytilf.y;ytil.ny,6ytil,itilfi 

c 

OPEOSN«-RHO (NY , JN ) «U( NY , JN ) »OUEOSN 


nc« 

new 

•4EM 

nCN 

nCN 

nED 

ne» 

NEN 

new 

nEN 

nen 

new 


fINO delta, the value of YTIL AT *H1CH U • 0*995 • OF* 


00 100 '^■1 ***'f 
laNY^I-K 

TmI»ABS(U( I * JN)-UcoSE*'UEOGE 
IF (THI *GE* 0*00S0> GQ to Go 
TH2 • TH| 

GO TO 100 

50 YoeLTa«Y( !♦ 1 »-oY« ( TM 2>0*005 ) / (TM2-TMU 
GO TO 120 
too CONTINUE 

fIno delta corresponding to yoelta, 

120 CALL XNTERP ( YOELT A i DELT A , DUMHY 1 , 1 Y T I LP , Y , YT 1 L ,N Y , CTT I L » I YT ILF 1 

iytilf-iytilp 

calculate turbulent transport properties at each mesh point* 

EPS! I * JNt>0* 

PRT(I,JN» ■ I 3*40/1 I 1 •‘***0»S0RT(PR( 1 , JNl) > 

T1*REY1MF*2ETAN 
T2«TI/24* 

0CRIV«020Y»(-U<3, JN)*H*«U(2, JN)-3**U( I , JNl 1 
PARENaSHlM I , JN»*Bc.P* I )*0ER1 V/Tl 
Ic* the test for EOUaLITy betreen non-integers m»y not be meaningful* 

IF (SHORN *NE* 0*D GO TO 170 

Tm3 ■ T1*ZETAN«*2/(SMU( I , JN»*(86P( I »*0ERIV»*«3» 

Tmh • 1.0 ♦ 1|,«0»OPEOSN»SQR7(TM3/RHO(|,JnM 

IF (TH9 *LE* 0*01 9N • 1.0 
IF (TMR ,GT* C*0> bn • SORT(TMNl 
GO TO IRQ 
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I70 Tm 3 ■ I I *80«SH0WN/SQRT(RH0( I » JN) >*SQ»T(TI«ZETAN*«2«SHU( I t JN)/ 

7 (R6P( I (•OERi vn 

TMRaOPEOSN/(SMU( I . JN)«BCF( I I *DER t V«SM0WN ) 

IRQ 00 300 I ■ 2tNY 

THE TEST EOR EOUALfTy BETWEEN NON-INTESERS MAT NOT BE MEAnINsEUL# 
inSHOWN.EQ.O* IGO TO IRQ 
TERM»EXR(TM3/SMIJ( t t JNt ) 

Bh*SORT«-TMM*SMU» j I JN)»< I .-TERM»*TERM| 

|?n BRKT ■ .T2*TTIL( I )«BN/SHU( I ,JN}aSQRT(RHO( I |JN|«PAREN) 

CVVUtJNI ■ BRtCT 

CuVIltJMl ■ 0. I A0*TI»86P( I > •TTIL« I > •TTttt ! >RRHO» I I JNI* 

7 ABS(02DT*(U( I«| , JN)-U( I«| , JN| ) )•( I •0-EXPIBRKT) )**2 

calculate turbulent PRANDTl number. 

300 PRTU.JN) • O.NO/O.HRO* ( 1 .0 - EXP « gRKT » » / » 1 . 0 - EXP(2A.0« 

7 SQRT»PR( I . JNl )*BRKT/3R.0n 

I ■ 2 

CALCULATE TEMPORARY OUANTtTIES 

lO UYMN • (U(t«i«JN) • U( t*l • JNn*02DY 

RHOP ■ <RhO<!^IiJN) • RHOC 1-1 , JN>)*020Y 

UUYYMN ■ (CUU(|«|,JO) - 2.0*CUU( t , JOI * CUU( l-l ,J0) )«ODYSQ 
CUUYMH • (CUU(I*I,J0) - CUUt I-l , JOI »*020Y 
SmUY ■ (SHU(l*ltJN) • SMU( l-l , JNM*020Y 


ALFA • 0.I0/2K 

T2 • RHOV( I |*BGP( I » - U(I,JN)*E<I» 

GAMA«0*360 ♦ H2.0*ZCTAN»SM0RN/<RH0INy,jnj*UINY;jnJ » her 

•••••• ntSIPATfON length MOOlElEO MAy f»tR73 •••*•• hCR 

SLS ■ YTIUI I/OELTA HER 

SLS2 • SLS'SLS hCR 

Bn ■ YT|L( n •(0.2r50»SLS2-0.5860*SLS*0.R3l0» nER 

BRKT ■ 2,0 -EPSC I , JO) *E( I ) *BGP( U •UYMn«*2 -01 

TMI ■ ri !)*BGP< I )«EPS( I , JO)*ALEA 
OERfV ■ 020Y*JEP8( !♦! , JO) - EPS(t-l,JO)t 


TM 2 ■ re I ) KEPS I I , J0)*BGPP< I ) /B6P< I » ♦ BGP 1 I ) *OeR t V > • ALE A 
Th 3 • t EPSe 1 , JO ) / ( ZK«TI •RhOI t I JN) •BN) >••3 
ThN • BRKT - GAMAaTM3«RH0 ( I iJN)/(ZCTAn«BN| 

coeeeicient or cuu(np|im*d 

Af|-I*3) ■ 0**0Y*<T2 - TM2) - 0.50*0 DYSQ*TmI 
A(I«1,2» • RMO< I » jN)*ue I I JNl/OS ♦ OOY50«TM| 

A<l«l.|) ■ -All-1, 3) - OOYSQpTMI 

Bll-n • TMN ♦ RHOl I t JN ) *U< I • JN) /OS*CUU( t « JO) - 0,B0*(T2 - TM2)* 
7 CUUYMN ♦ 0*SO»UUYYMN*TMI 

I • I ♦ I 

IE It .LE. NYI) GO TO 10 
All.l) • 0.0 
AINY2.3)>0.0 

Call trimia,cuui2.jn),b,nv2,nmax) 
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CUUdtJN) ■ 0.0 
CUUlNYiJNI ■ OtO 
CuV<t*JN) ■ 0*0 
00 1000 t>2«NTI 

c •••••••• 0|SI»**TI0N length HOOIFICO N»Y Y,iYT3 •••••• NEW 

SLS • YTILC I »/OCLTA NEW 

SLS2 • SLS«SLS NEW 

BN ■ YTILf I »*<0»2OSO*SUS2-0»5860*SLS^O.**3|OI NEW 

irJ CUIM I I JN» »LT.c»0> CUUCItJNI "O^O NEW 

EwSlltJN> ■ BN*2t(*RH0< I t JN)»S0RT<*BS<CUU< I t3N» H*WEYINr*2ETAN -01 

IF (CUV(liJN) ,LE, CPSCI.JNM EPSdtJNI • CUVdtJN) 

1000 CONTINUE 

EPS! I • JN)-0*0 
EPSINYt JNl*0*0 

smooth the EOOY VjSCOSITY ••••••••• NEW 

.01 

Go 00 WOO I-3.NY2 NEW 

EWSd*jA» • lEPSI |^2t JN>*EPS( l-l .JNdEPSd *JN»^ nEW 

7 EPSIUI |JN)8EPSd«2tJN) )/S*0 NEW 

new K •••••••••• CUUd.JN) ••••••••• .02 

SLS • YYILd’^OCLTA NEW 

SLS2 • SLS«SLS NEW 

BN • YTILd ••(0#2 o50*SLS2-0.5«60»SLS>0.**3IO» nEW 

CUUdtJN) • lEPSI I I J* ) '♦ 2f**N*RHnd , Jn)*T| ) )**2 .01 

WOO EPSdtJN) • EPSd.JAl 

CALCULATE TURBULENT LEWIS NUMiCR# 

00 *00 t•ltNY 
GOO BLETdiJN) • TLEW|S 

RETURN 

End 
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SUBffOUTINe CLEHTS 

CCLEMtS solve E*CH system op element equations PON element mass 
C enactions ALPHAHM^t |N» ♦ 

C 

CONMON/OEPENO/U(2SOt3) i M ( 2SO i 3 ) • «LPH A ( 2 Sq • 3 1 2 I tNHO V ( 2 Sq I • SH ( 2SQ » 3 1 
COMMON/ I NOEP /S|OStX|OX«V(2SO) |0V 

COMMON/PNOP /RH0(250,3f •SMU(2SOt3) •PN(2S0t3> *BLE<tSOi3) • 

T SHI (2S0»2f*> tSCI (2S0»2*AI •T<2S0«3) tAV(2So) 

COMMON/TPNOP /EPS(2S0i3) • PNT ( 250 • 3 I t BLET ( 2SO 1 3 ) 

COMMON /YTANLE/ YTlLl250>.BGP(250),BSNP(250lfIY?ILPHYTILP, /YTaBLE/ 

T CVTIL(A» /YTaBLE/ 

CohmON/MATNX /A(2S0»3> iB(250) 

COMMON/EFVEC /£ ( 250 > i P < 2SQ ) 

COMMON/S I GMaS/SIGI (3|iSI 62(3),SIG3(3I,SIG<M3»*SIGS(3| tSI6SS(3) 

COMMON /ZCALC/ ZETA0,ZETA,ZFTAN,7ETaP, 2ST»N»3> ,oSZI2» ,Y7ETA, /ZCaLC/ 

I YTZETA.YEOfiE /ZCALC/ 

COMMON/WALLBC/TWAlL.SHWALL|HNALL.SMOWO,SMoN,SMO»N 

common /EOGEBC/ TE06E»SHEOGEtHEOGC»UCOGEtPEOGEBiAPEBGE,oUEOSO» /EOGEBC/ 

T OUEOS lOUCOSN lOPEOSN /EOGEBC/ 

COMMON/NONMAL/BLREPfOPCP»PHONEP»SMUNEp,NEYINP 

COMMON/CONST /SINiT|X1NI7,XMAX,0CLTaI,SN|,SN2,Sn3,EPSLN| .EPSLM2, 
i £PSlN3,CONVRG,020Y,0‘»DY,OOYS« 

COMMON/COUNT /NY, NY I , N Y 2 , N Y3 , JO , JN , J A , NEL ; NEL I » NSP , MM AX , NY I 
C0MM0N/NEW3 /APTrNSiPLAW 

c 

C pON EACH ELEMENT EXCEPT LAST, EVALUATE COEPPICIEnTS OP SYSTEM OP 
C ELEMENT CONSENVATjON EQUATIONS# 

C 

siGSst n•SIG5l n 

S|G5S(2t«SI6S(2l 
Do SOOO lEL-I.NELl 
SiGSt I )-SI65SM) 

SIG5I2)-SI65S(2> 

iNCNMTaO 

1-2 

C 

C calculate temporary quantities. 

c 

100 BE ■ Ell) 

BF-PI I ) 

SIG5(3)-SMU( l«| , JA )*BLE( l«| , JA )/PR t !♦! , JA |« 

T EPS! !♦! ,JA jABLETI I * I , J A ) /RR T ( I « I , J a I 

SIGSY-ISIGSt3)-Sl6SI I I )«020Y 

AvMN-IALPHAI I* l, JO, IE l)-ALPHAI I- I , jo, I el I lAOZOY 

AYYMN-IALPHAI 1*1 , JO, I EL) -2. • alpha I I , JO , I EL ) *ALPHA I 1. 1 , JO , I EL > > • 

T OOYSQ 

TENM-BPaBGPI n*StGS(2)*Q0YSQ 
TMI-BGPPI I )*SIG5( 2 )/BGPI | )*BGPI I ) aSIGSY 
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TM2»«H0V< I )»BePJ I » 

Tm 3 .RH 0 ( I ,J/n»U(!,JA)/OS 

cOCfP. OF AUPHaHM^I ,N-n 

A( I»l »| t*040Y«(BF«U( I •JQ)«TM2«BF*TM| )-0»S*TCRH 

COEFF* of AtPHAI IM*I iNI 

A( l-l ,2I«TM3*TERM 

cOEFF* of AtPHAl (M«1 |N«| ) 

A( l-l .Sta-At 1-1,1 J-TERM 

pIght-hano side (including u(m*i,n> term Obtained from mohentum 

EQUATION) 

_B( l-l )»TM3*ALPHA( I , JO, IEU-0»5*TM2 *AYmN4 

i 0*B*B*'*<TM|*AVMN>B6P(I)*StGS(2|«AYVMN)«0,5*BE*AYMN*U(I,JN) 

pUSH-OONN STORAGE 

SiGSt I )«SI6S(2> 

S|G6(2)>SIGS(3) 

I«l*l 

IF II *LE. NYl) 60 TO 100 

mOdift first and Last element equations by boundary conditions. 

IFI INcRMT.gT.OIGO to 2S0 

Bf GA"REYINF«ZETA*7ETA*SM0W*PP( I , JA I/IBGPI I l«SMU( I , JA )*BLE( I , JA ) ) 
DEN0Ma2,*0Y«BIGA«3, 

Afl,2)aAl|,2)«R.*AlliM /DENOM 
Af I ,3)PAI I ,31-AI I , I I/DEnOM 
B< I )pBI I )-A I I , I )*2.«OY«BIGA*AFTRNS/OEnOM 
Af I , I 1-0* 

250 BINY2) - B(NY2( - A ( N Y 2 , 3 ) • A FEOGE 
A(NY2,3)«0. 

solve element equations for ALPHAI (M«I ,N) , N-2,3,..,iNY.| 

CALL trim (A,ALPHa(2,JN,IEL) ,B,NY2,NMaX) 

apply boundaRt conditions for alphai im«i ; 1 1 and alpmai (M'aI ,ny) 
.alpha 1 1 ,JN, IEL)>(<«.*ALPHA(2, JN, IEL)-ALPHA|3,JN, tEL)A2.«DV*BlGA« 

t AFTRNS) /DENOM 

AlPHAIMY, JN, iel)«afeoge 

Test • i alphainyi ,jn,icd - alphainy.jn.ied )/alphainy,jn,ieli 

IF(ABSITEST)«LE*EPSLN3I60 TO ROOO 
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c 

C solution does not aSYMPTOTiCALLT approach cose conditions* 

C INCREASE thickness OF HOUNOART LATER BY AOOINO 0»|E POINT* 

C 

incrht-incrmt* I 

IF! |NCRMT*GT*5)CA|,L DEBUG IAHElEHTSI 

IFINT.CQ.nhaXICALL DEBUG l&HELEHTSI 
CALL ADOPT (3) 

I^NY-I 
Go TO 100 

RQoo Continue 
c 

C cALCuCAtE MASS PRACTtON QP LAst ELEMENy CNELI At EACH HEsH POINt, 
C 

DO SOOO l"l |NY 
SUHEL-0* 

DO RSOO IEL>I.NEL| 

R500 SUHEL ■ SUMEL ♦ ALPH A II » JN , I EL I 
5000 AlPhAI I ,jNiNEl> ■ 1*0 • SUHEl 
RETURN 

End 


SUBROUTINE ENERGY 

CENERfiT SOLVE SYSTEM oF ENERGY EQUATIONS FOR ENTHALPY H(H«|,N). 
C 


c 

c 

c 


COHMON/OEPENO/U(?S0i3) (H(2S0i 
COHMON/INOEP /S,DS.X,0X,Y{250 
CONMON/RROP /RH0(2S0*3| iSHUI 
SHI (250*2.*) , SC 
COHMON/TPROP /EPS ( 2S0 t 3 > i PRY ( 
COMMON /YTABLE/ Y T I L ( 250 ) . BGP 


31 (ALPHA (250.3*21 *RHOV(25oI 
) .DY 

250(3) ,PR( 250(3 I .BLE(tS0*3) 
I (250.2.*) (T (250.3) (AT( 250 I 
250.3 ) .BlET(25Q.3) 

(250) >BGPP(250) (ITTILPi |YTI 


.SH(250.3) 


* 


LF. 


I CYTIL(A) 

COMMON/MATRX / A ( 2S0 • 3 ) * B ( 250 ) 

COMMON/EFVEC /E ( 2S0 > * P < 250 ) 

common/s IGMAS/SIG I (3) *SIG2(3) ,SIG3(3) ,SIG4(3) .SIG5(3) .SIG5S(3) 
COMMON/RALLBC/TRAlL.SHWALL .H*ALL»SM0«0,SM(5*,SM0WN 
common ZEOGEBC/ TtOGE , SHEOGE , HEDGE , UEOGE « PEOGEB , AFEOGE , OUEDSO , 
T DUEDS.OUEOSN.OPEOSN 


COMMON/CONST /SIN|T,X INIT.XmaX iOELTaI (SNI ;SN2.Sn3.CPSLN) (EPSLN2, 
) EPSlN3,CONVRG,O2DY,0'»OY,OOYSQ 

CONMON/COUNT /NY.nYI .NY2.NY3. jo. JN tJA,NEL;NELI .NSP.NMAX.NYI 
COMMON/IOEBU6/IOE«)UG(3) (KMOOHP.kFNOHP 


/YTaBLE/ 

/YTaBLE/ 


/edgebc/ 

/edgebc/ 


evaluate coefficients 


OF system of energy 


EQUATIONS* 


incrmt-o 

I«2 
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c 

C c*tCULATF TEMPORARy QUANTITIES. 

C 

100 BE • E< U 
BF«F I I » 

T|*EPSI l«l iJA) 

T2-SNUI !*1.JA)/PR(|*I,JA> 

T3-TI /PRT ( t ♦ I , JA ) 

SIG2I3)«T2^T3 

Sia3<3)»SMU(l4.|.J»)-T2*Tl-T3 

SI6‘M3»«T2*IBLE<!*I.JA»-!.»*T3*<BLET(i*|,ja»-I.) 

Sl62y»<StG2(3)-S|62MI)*020y 

SIG3T«(SIG3I3)-SIS3M ) »»020Y 

SlG‘IV»<SI6‘H3)-StG‘*« I » )*0 20Y 

UVMN*MH !♦! , JO)-U( I-l , J0» )»0 20Y 

UVYMN>(U( I ♦ 1 , JO i-2. *U ( I , JO 1 «U ( I - I , JOn *00X50 

HYHN»IH( !♦! . J0l-H( I-l , J0 » )*02nY 

HV VMN* (HI 1*1 I JO )-2«*H( It JO l«H( I-l (0011*00X50 

TERM"Br*RGPC I )*SIr,2C2)«OOXSO 

TmI*B 6PP( n*SIG 2 ( 2 >/B 6 P(I )*8GP( n*SI62Y 

TM2«RH0V( f ) *9GP( t I 

TMJbRHO (I tJA)*U(l,JA)/OS 

TERNUa6P*B6P( |l•5|G3(2)•00YS0*U(ttJ0) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


TMUI«8GPP( 1)»SI63I2»/B6P« !)*BGPI I >•S!G3X 
rOEFF. OF H|M*i ,N-| ) 

A( I-l (I I*0*IOY*IBE*0( I (J0)-TH2*BF*TMI )-0.S*TERM 
fOEFF. OF H(M*| ,N) 

A( I-l t2)>TN3«TERM 
COEFF. OF H(M*i ,N*| I 
AC I-l ,3)*-AI 1-1,1 l-TERM 

rIGHT-HANO 5I0E (INCLUDING U(M*i,N| TERMS OBTAINED FROM MOMENTUM 
EQUATION) 

cOEFF. OF U(M*I ,N-| ) 

C0EFF|*0<|0Y*BF*TMU|*U( I , JO I *0 20 Y *BF *BGP 1 I ) *S I G3 ( 2 I *U Y Mn-0 . 5 * TERMU 
cOEFF* of U(M*I ,NI 

C0EFF2»-0*5*(BE»HxMN*BF*Tmu|*UYMN|-0*5*BF*B6P( I ) *5 I G3 < 2 I »U Y YMN* 

I TERMU 

cOEFF* of U(M* I ,N* I I 

C0CFF3«-C0EFF i-TERMU 
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c 

C jfVALOATC SUHMATION OVER SPECIES 

C 

SUNSf-0« 

Do ISO tSR*l»NSP 
C 

c rTore temporary averages. 

c 

ShIMI A-O. s* (SHI I t-l . JO. ISPI^SHI ( I-l I JN. ISPM 
ShIA >0.S*(SH|(f I JOi ISP>*SHJ ( ! .JH.lSRn 
SHIP|A-0.S*(SHI ( U| .JO. ISPI^SHI ( I«| • JN, ISPI) 

SCIMlA»O.S*(SCm-t .J0.ISRJ45CI ( 1-1 .JN.ISPIT 
SCIA ■O.S«(SCI(l . JO. ISPI^SCI ( I .JH.(SP)) 

SCIPIA«0.5*ISCI ( I^I.JO. ISPI^SCt ( !♦! . JN. ISM) ) 

SH|Y«02DV«(SH|P| A.SHIHI A) 

SCIY"020Y»(SC1PI A-SCIMI A) 

SCIYY»O0YSa»(SClP| A-2.*SC|A*SCIHl A) 

ISO SUHSP ■ SUMSP ♦ ShIA«SC|Y*(B6P| DaSIGAY ♦ BGPP ( t I «S | Q A ( 2 I /B6P ( I II 
i ♦ B6P( I l•SIG'^(2I•ISHIY•SCIY ♦ SHIa*SC|YYI 

C 

c assemble all terms* 

c 

B( I-l l•TM3•Hl I . JO (-O.S*<TM2»HYMN-BF*( TMl*HVRN*86Pn )*SI62(2I* 
i MYYMN) )♦Bf •SUMSP-COEPPl *01 t • I . JM ) -E 0EFP2*U ( I | JN I • 

7 C0EFF3*UI 1*1 . JM) 

C 

C pUSH-DORN STORAGE 

C 

SIG2I I )aSI62(2l 
StG2(2)-S|G20) 

S|63( I )^StG3(2) 

StG3(2>"S|G3(3) 

S|GMI I l■S!6R(2) 

SIGR<2)«S1GRI3> 

l^l^l 

IF (I »LE. NYI) 60 TO 100 

hOOIFY first AMO LaST ENERGY EQUATIONS BY BOUNOARY CONOITIONS. 

AT WALL H ■ hr 

AT EOGC H ■ he 

IFI INCRMT.GT.oIGO to 2S0 
B( I )«B( 1 )-A( I . I )*HWALL 
A(l,l)«0. 

2So B(MY2) • BINY2) • A I NY2 . 3 ) •HEDGE 
A(NY2,3)aO. 

SOLVE energy equations for H(M«|.N). Na2.3.«*..NY-l 

CALL trim (A.H(2.JN) .B.NY2.NMAX) 

»PPLY boundary conditions FOR H(M*I.|) aNO HIM*|,NY) 

H( I *JN)*HNALL 
H(NY.JN)aHEOGE 
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CALCULATe FROM Nst,.4«,NV 

00 300 I>iiNY 

300 Sh(|iJN> ■ MlliJNI • U( I I JN)**2/3*0 

PRINT DEBUG FOR THIS ITERATION, IF REOUESTeO. 

IFIFENOMP.GT.OICALL OUMPIT 

TEST ■ I H(NV|,JN) - H»NY,jNn/M(Ny,JN» 

IFIABS(TEST) , LE.EPSLN 2 » return 

SOLUTION DOES NOT ASYMPTOTICALLY APPROACH EDGE CONDITIONS. 

c increase thickness of boundary layer by adding ome Point. 
c 

INCRMT-INCRMT*! 

IF( INCPMT.GT.SICAcl debug (AhFnERGV) 

IFINY.EO.NMAX ICALL debug I6HENER6YI 
call adopt <2) 

I«NYI-f 
GO TO too 
END 


c 

c 


c 


SUBROUTINE EQLBRM . 

routine to calculate equilibrium composition and properties 

DOUBLE PRECISION x,G 

Data ie /ihe/ 

dimension prowi is I 

logical CONVG.HP, iC, l sing, log V, TP 


OMMON /POINTS/ HSUMII3I ,SSUM( m ,CPR< I3»,DLVTPM3) iOLVPTtlS) , 
Gammas! I 3 ) ,PI l 3I ,T ,p<»P« I 3I ,WM< |3I .SqnVEL « I 3 J i 
TtT( I 3» 

OMMON/SPECES/COEF 12,7, 

OMMON /MISC/ 


DELN! 30) . 
ENN.SUMNi 


IMMON 

)MMON 


LrT,,j,,Di,yTri|3IiOLVPTtI3) 
.P^P! 131 ,WM( 131 ,SONVEL« 13) . 

I 

7,301 •S(30l ,EN(30il3l ,ENLN(30) ,H0(30I, 

iA! is, 301 ,SUB( 3o, 3) , lUSElsO) , TEMPI SO, 2) 
|TT,SO,ATOMI 3, I 05 ) .LLhTI Is) ,B0< IS) I 

B0P(I5,2) ,Tm,TLOW,TMIO,THIGM,PP,CpSUM,oF,EQRAT, 
HSUflO.HPPI 2),RH0(2),VM|NI2);vPLS!2I.*PI2), 
NAME<IS,5)tANUM(|S,S),PECWT(IS)tEwTH(tS>,FAZf|S), 
RTEmPI IS) ,EOX( IS) ,OENS t IS) .TLN 
/double/ 0120.21 ) |X(20) 

/INOX/ CONWG.TP,HR,SP,HOLES,MP,NPT,L»NS,|tMAT, IMAT, lOl ,NC, 

JS0l,JLIQ,IC,IQ2 


A I 

A 2 

A 3 

A N 


A 9 

/points/ 

/PO I NTS/ 
/POINTS/ 


/MISC/ 
/RISC/ 
/RISC/ 
/RISC/ 
/RISC/ 
A 20 
/InDX/ 
/iNOX/ 
A 2B 
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CHITV ■ s*oe-« 

isiN6>*r«Lset 

eNNL>AL06IENN) 

toav«*r«LSE* 

P^LN«AL06CPP» 

TLN-ALOGITT ) 

CONVSa. FALSE* 

ITNUNB • 100 
IF (to GO TO ISO 
HO THaALOGIPP/ENNI 

IF l»N0T.TP) CALL CPHS 

ir (TP *AN0. (CONVG *0P> tTNUMB *EQ* lOOM CALL CPhS 
IF (IC) GO TO 630 

IF ( (NOTtCONVCtOP. JS0L*E0*0> GO TO SO 
ENSOLaENf JSOL iNPT ) 

ENIJS0L,NPT)«EN( JSOL|NPT»*EN( JLIOfNPTl 
IUSE( JLIQIa-IUSn JLIQ) 

IO|aIO|.| 

OtVTP(MPT»ao« 


30 

31 

32 

33 
3H 
3S 

37 

HS 

SO 

52 

53 
5M 

55 

56 

57 

58 


CPRINPTIaO. A SV 

GANHAS(NPT)aO. A 60 

LOGVa«TPUE* A 61 

SO CALL NATRIX A 62 

NUNS a 101 > ITNUmB 

IF (tNOTtCONVGl GO TO TO A 6R 

IF (LOGV.ANO.JSOL.EQtO) GO TO 70 A 65 

00 60 |a|,L A 66 

60 PROR( I ) a GIIQI f I ) 

IF (.NOT.LOGV) 60 TO 90 A 69 

A 70 

L06V a .TRUE,— SET UP MATRIX TO SOLVE FOR OLVPT A 7| 

A 72 

70 G( IQI . IQ2)-ENN A 73 

I0"IQI-I A 7H 

DO SO Ia|,IQ A 75 

So 6( I .102) a 61 I ,IQ| 1 
90 IF (CONVG) IMAT ■ IMaT - | 

ITSTalMAT A S3 

CALL NGAUSO A SH 

IF ( ITST.NE* IMAT ) 60 TO ISO A S5 

IF (.NOT* CONVG) GO TO 280 

IF (LOGV) GO TO 630 A 90 

SUHaQ. A 91 

00 130 Ja|,L A 92 

I30 SUN a 5 uM ♦ PR0N(J)«X(JI 

OLVTP(NPT)a| .♦Gl 102, IQI ) /ENN-SUH/ENNaX( |0| ) A 95 

CPR(NPT)aGI 102, 102) A 96 

DO IRO Ja|,|Q| A 97 


94 


i«to ■ CPRINPTJ - j» 

L06V-.TRUE. A 100 

60 TO SO A 101 

C A 102 

C SINGULAR matrix A 103 

C A lOR 

ISO IF l•N0T*C0NV6l Go TO lAO A lOS 

WRITE (A.7S0I 

IC>»TRUe. A 107 

GO TO G30 A toa 

IGO IF I •NflT.HP«OR«NRT*NE» I »OR«NC«EQ«0<OR.TT.6T* 100* I 60 To 170 A 109 

WRITE fG.7G0> A ||0 

60 TO G90 A 111 

170 write IGf770» 

IF UC» 60 TO 690 A ||3 

IF (ISINGt 60 TO 2H0 A IIH 

NTZERO-O a IIS 

180 00 220 JJ*I *NS A I 16 

IF (tUSEIjJtl 220.200*190 A ||7 

THE test for equality BETWEEN N0N-INTE6ERS M*Y NOT BE MEANINGFUL. 

190 IF (EN< JJ.NPT) .EQ.O* ) SO TO 690 A 116 

GO TO 210 A 119 

the test for equality between non-integers m*t NOT BE meaningful. 

200 IF (EN( JJiNPT) .NE.O*) GO TO 710 A |20 

EN(JJ.NPT) '■ I .OE-6 
ENLNIJUt a -I3.AIS5II 

GO TO 220 A 123 

210 NTZEROaNTZEROYl A I2H 


220 Continue 

IF I.NOr.lC) GO To 230 
ICs.FALSE. 

60 TO **o 

2^0 ISIN0*»TRUE* 

write 

GO TO RO 

2*«0 ir iNTZtROoNEo (L-! ) ) GO To A9Q 

IF I CQRAT* QT t I oODoO I • OR • ERRAT oLT f 0 • 99999 ) GO TO 69 q 
ENN«0* 

NCNsO 

00 260 !»1 iL 
JEN«0 

DO 250 J»l fNS 

TMr TEST FOR EOUaLITv BETWEEN NON-INTEGERS M^Y NOT BE MEANINGFUL. 
IF (ENfJiNPT) .EO.?. ) GO TO 250 

the test for E-OUALITv between NON-INTEGCRS may NOT BE meaningful. 
IF IA( I » J| .EOtO. ) GO TO 2B0 
IF (JEN«NE.QI GO TO 260 
JEN«U 


A I2S 
A 126 
A 127 
A 128 
A 129 

A m 
A 132 
A 133 
A 13H 
A 135 
A 136 
A 137 
A 138 

A 139 

A 1 RO 
A IRI 
A 1R2 
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2S0 CONTINUE A |43 

NCNaNEN^I A 

EN( JEN»NPT)aeo< It/A( I » JEN) A l*»S 

260 CONTINUE A |66 

IF INEN»tT»NTZEPO| 60 TO 690 A 197 

C0NV6«tTNU£. A |98 

IC**TNUE* A |99 

HSUHINPTIaO* A ISO 

00 270 jaltNS A |S1 

• THE TEST for EOUALITy BETWEEN NON-INTEgEws MAT NOT BE MEANINGFUL* 

IF (ENIJtNFTI.CB.;)* I 60 TO 270 A |52 

ENNaENI J*NPT)*ENN A |S3 

EnlN(J) • ALOGIENI JiNPT) I 

HSUM(NPT»«MSUH<NPT»*EN« J,NPT»«H0( J» A 156 

270 CONTINUE A 157 

Tm»AL06CPP/ENNI a I5B 

60 TO 90 A 159 

2S0 ITNUMBa|TNUMB-| A | 60 

IF (ITNUMB *LT. 3o) CRITV a CRITV ♦ 2«50E*7 

^ A 161 

C obtain CORRECTIONS TO THE ESTIMATES A |62 

C A 163 

KK«L*1 A 169 

0LNTaXtt02> A 165 

IF ITP) DLNTao* A |66 

00 320 Ja|,NS A 167 

IF (lUSEIJM 320i290i3l0 A 168 

290 OELNf JIaHOI J)«0LNT'HO( Jr*S( JI-ENLNt JI-TM«xl iQi I A |A9 

00 300 tC»l*L A 170 

300 OELNIJ) a DELNIJI * A(K,J)*X(KI 

60 TO 320 A 173 

310 DELNI JIaxlKK) A |79 

KKaKK*| A | 75 

320 CONTINUE A 176 

AMBOAal. n 

AmBO A I a I • ^ j jg 

SUNaXMOD A |79 

IF |SUM«LT*0*I SUMaoSUH A 180 

IF (0LNT*6T*SUMt sOP*OLNT A 181 

IF (•0LNT*6T*SUM) SUMa«DLNT A IB2 

00 330 Jal.NS A 183 

IF ( lUSEI Jl *NE*0) 60 TO 330 A |89 

IF ((EN(J»NPT)*6T*0*)*AN0*0EtN( J>*BT*SUMI SUMaOELN(d) A |B» 

TNP TEST FOR EQUALITY BETWEEN N0N-INTE6ERS MAT NOT BE MEANINGFUL. 

IF MEN! J.NPTi.NE.O* 1 .OR^OELNU) .LE.O* ) 60 TO 330 A |86 

SUN|a(.9.2l2-ENLN( J)«ENNU)/(0ELN( J)-X| toi I 1 A 1B7 

IF (SUMI.LT.O.) SUM|a«SUM| A |B8 

IF (SUM| *UT. AHBOA I 1 AMBOA|aSUM| A |89 

330 CONTINUE A |90 

IF (SUM,6T*2*I AMB0Aa2,/SUM A |9l 

IF (AMBOA|*LT*AMBoA) AMBDAaAMBOAl A |92 
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c APPLY COPRCCTJONS TO ESTlMATtS 

C 

SUM ■ 0*0 
DO 30Q jaliNS 
ir flUSEUn 38 Oi3A0i370 
3A0 EMLNl J)aENLN( jl^AHBOAaOCLNCj) 

EN(J*NPT)ao, 

IP (ENLN(J) ♦ IStSO *LE. ENNL) SO TO 3to 
EN( J»MPT)aEXP(EN|.N{J) » 

SUHaSUM«EN( JiNPT) 

60 TO 3(10 

370 EMI JtNPTIaei4( J,NPT)«AMBOA«DrLN( Jt 
3«0 CONTINUE 
SUMNaSUM 

IP ITP» 60 TO 3»0 

TLNaTLN^AMBOAaOLNT 

TTaEXPITLN) 

3Y0 CNNtaENNL«ANBOA«X ( ton 
CNNaeXPIENNLt 

^ IP ILLMTILitNEtlE) 60 TO *»20 

C CHECK ON REM0VIN6 IONS 

C 

00 *»00 JaltNS 

• The TEST POR equality between N0N-INTE6ERS MAT NOT BE MEANIN6PUL* 

IP IA(L,J) .EQ.O. ) 60 TO ROO 
IP IENCJ.NPT) ,6T#o. » 60 TO <*20 

*»oo Continue 

00 RIO Ja| ,NS 

• TMf test POR equality between N0N-INTE6ERS MaT NOT BE MEANIN6PUL. 

IP (AlLiJ)*NE*Ot) lUSEUIa-IOOOO 
**io Continue 
L-L- l 
IOIalQ|.| 

60 TO RO 

c 

c TEST POR C0NVER6ENCE 

c 

M20 IP I ITNUMB.EQ.O) 60 TO <*R0 
IrINUMB.FO. I » 60 TO RO 
IP I AMBOA (LT* I • ) GO TO RO 
SUNalENN-SUHN ) /CNN 


A 20R 
A 20S 
A 206 

A 208 
A 20T 
A 210 
A 21 I 


A 213 
A 2IR 
A 215 
A 216 
A 217 
A 21B 
A 219 
A 220 
A 221 
A 222 
A 223 
A 22R 
A 225 
A 226 
A 227 
A 228 


A 229 
A 230 
A 231 
A 232 

A 233 
A 23R 
A 235 
A 236 
A 237 
A 238 
A 239 
A 2R0 
A 2RI 

A 2R2 
A 2R3 


IP tSUM.LT. 0*1 SUHa«SUH 
IP CSUM .6T. CRlTv» 60 TO RO 
00 R30 Ja|,NS 

IP I lUSE(J) •LTtO) 60 TO R30 

AA"0ELN( Jt/SUMN 

IP IAA.LT. 0*1 AAa.AA 

IP I lUSEI J| .EO.OI AAaA A*EN ( J,NPT I 

IP (AA .6T* CRITVI 60 TO RO 


A 2RR 


A 2R6 
A 2R7 
A 2R8 
A 2R9 
A 250 
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*•30 CONTINUf 
*•*•0 CONVOa.TRUE. 

IP ( itnumb.ne.o) go to <«S0 

WRITE IG,8<tO> NPT 

IP (*NOT.HP.OR.NPT«NE. I.OR.NC.EQiO.OR.TT«aT*IOO«) GO TO 690 
write 16*7601 
TT • T 
RETURN 
C 

C CONVERGENCE TESTS ARE SATisPIEO, TEST CONDENSED SPECIES. 

C 

*ISO If tNC.EO.O) GO To 620 
SI2EP»0. 
lNC-0 

DO S70 Ja|*NS 

IP IIUSEf Jl .EO'O.OR* lUSCI J» .EOflOOOOt GO TO 57 q 
iNCafNC^I 

IP (ENtJ.NPTtl R65*<«S0 iS 60 
*•60 IP ( J.NE.JSOL.ANO. J.NE* Jtl9) GO TO R70 
JS0L*0 
JLIQ"0 

*•70 IO|a|0|.| 

EN( J.NPTIaO. 

60 TO 600 
*•80 KCa| 

IP (|USE(jl.EQ.-|USE(J«l n GO TO HiO 

IP (J.EO.I.OR.IUSCI Jt.NEclUSEI J*m GO TO 5*»0 

tCGa-l 

H90 JK6aj«KG 

IP tENIJKG.NPT) ,LT.O» I 60 TO S70 

TMEUTsTEMPI INC, I ) 

iMPaiNC^PG 

• THE TEST POR ERUALITy BETWEEN NON-INTEGERS MAT NOT BE MEANINQPUL. 

IP (TMELT.E0.TEMP( IMP.2I I GO TO S|0 
TMELTaTEMPC INC,2» 

• THE TEST POR EQUALITY BETWEEN NON-INTEGErs MAY NOT BE MEAN|NgPUL. 

IP •TMELT,EQ,TEMP( IMP, I ) ) GO TO 500 
WRITE (6,860) 

C 

C JTH SPECIES A SOLID (ENpO), (J.PGITH SPECIES A LIQUID (EN IS ♦» 

C 

500 IP ITT.GT.TMELT ) GO TO 560 

• THf test POR equality BETWEEN NON-INTEGERS MAT NOT BE MeANINgPUL, 

IP (TP.AND.TT.EO.TMELT) SO TO S60 

IP (TP» GO TO 530 

IP (TT.LE.TMELT-lsa. ) GO TO 530 

J50L*J 

JLIQajKG 

GO TO 520 


A 2ta 

A 253 
A 255 

A 257 
A 258 

A 260 
A 261 
A 262 
A 263 
A 26*« 
A 265 
A 266 
A 267 
A 268 
A 269 
A 272 
A 273 
A 27H 
A 275 
A 276 
A 277 
A 278 
A 279 
A 280 
A 281 
A 282 
A 283 
A 28** 
A 285 
A 286 

A 287 
A 288 

A 289 
A 290 
A 291 
A 292 
A 293 
A 29<( 

A 295 
A 296 
A 297 
A 298 
A 299 
A 300 
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c 

C JTH 5PCCIES A L I OU 1 0 < EN»0 ) , IJ^KOTH SPECfES A nOLlf) (EN |S ♦! 

SlO If (TT.LT.TMELTI (50 TO S^O 

• the test for epuauity between non-integers May not be meaningful. 
If itr.ano.tt.eo.thelti go to 5A0 

IF ITR> GO TO 530 

IF CTT.GE.TMELT^ISO* > SO TO 530 

JSOL-JFG 

JLIQ«J 

520 TLN«At06< TMELT) 

tt»tmelt 


ENfJFG#NPT)«.5«EN( JK6>NPT) 

EN< Jf nPT) -EnI JFG iNPT) 
go TO SWO 
C 

C WRONG PHASE included FOR T INTERVAL. SWITCH EN 

530 EN( J.NPT)«EN( JKG.nPT) 
lUSEUlW-IUSElJI 
lUSEI JEG)«-IUSE( JKG) 

EN( JKG»NPT)-Ot 
GO TO 610 

♦ THF test for equality BETWEEN NON-INTEGERS MAY NOT BE MEANINGFUL. 
5N0 IF ITT.LT.TEMpnNcn.ANO.TEMPCINC.M.NE.TLdW) fiO TO 560 
IF ITT. GT. TEMPI INC .21) GO TO 560 
SUM-0. 

00 550 I-I.L 

550 SuH • Sum ♦ A(t,J)PXlII 
OELF-HOf J)-Sfj|-SUM 

IF (OELF.GE^SIZFF.OR. OELF.GE.O. ) GO To 56Q 

SIZEF-OCLF 

JOELF-J 

560 IF (INC.eO.NCI GO TO 5S0 
5T0 Continue 

:• THf test for equality between non-integers MaV not be meaningful. 
580 IF ISIZEF.EQ.O. I GO TO 620 
J-JDELF 

590 IQI-IQI^I 

800 lUSEI J)«-|USE( Jl 

810 CONVG». false# 

820 Tn»NUMB 

ITNUMB • too 
GO TO 90 

c 

C CALCULATE EQUILIBRIUM PROPERTIES 

C 

830 SSUMlNPTI-0# 

IF IJLIQ.NE.O) EN( JSOL.NPTI-ENSOL 
DO 690 J-1 .NS 
SS«SI Jl 

IF I lUSEIJI .EQ.OI SS»SS-EnLN(JI-Tm 
690 SSUMCNPT) ■ SSUM(nPTI ♦ SS-ENIJ.NPT) 

IF I.NOT.IC) GO TO 650 
DLVPTINRTI--I . 

OLVTPiNPTl-t . 

CPRCNPT1-CPSUM 


301 

302 

303 
309 

305 

306 

307 

308 

309 

310 

311 

312 

313 
319 

315 

316 

317 

318 

319 

320 

321 

322 

323 
319 

327 

328 

331 

333 

339 

335 

336 

337 

338 

339 

390 

391 

392 

393 


396 

397 

398 

399 

350 

351 

352 
359 
355 

358 

359 

360 

361 
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60 TO 670 * 3*2 

*S0 SUN^O* A 3*3 

Oq **0 • 3*M 

AAq SUH ■ SUM *. PR0W(J)*X|J) 

0LVPT*nmT**"2»*SUm''ENN** • IQl > A 3*7 

ir (JLI0*CQ*0) go to *70 a 3*S 

lUSEt JLie)»IUSC( JLIO) A 369 

HSUM(NPrt-HSUM(NPT)«EN( JLlQiNPT)*(HO< JLIQ)-H0( JSOLM A 370 

IQl«IOI«i A 371 

6AMMASINPT)»-| »/Ol#PT(NPT» A 372 

60 TO *80 A 373 

*70 6 AMMAS<MPT)«-|#/« 0 l.VPHNPn*» 0 LVTP(NPTI** 2 »*ENN/CP 6 lNPT) » A 379 

*80 TTTCNPT»*TT a 375 

PPP|NPT)«PP A 37* 

HSUN(NPTI>HSUM(NPT )*TT A 37* 

«M(NPT)>| ./CNN A 379 

8CTUPN 

C A 389 

C ERROR, SET TT»0 A 385 

C A 38* 

*90 TTaO* A 387 

NPT«NPT-I A 388 

RCTURM 

750 format (28HO0ER! VaTIVE MATRIX SINGULAR I A 395 

7*0 FORMAT I9*hOLO« TCMPERATUpE IMPLIES ConOEnSEO SPECIES SHOULD HAYE A 39* 

i BEEN INCLUOEO ON AN INSERT CARD, RESTART) A 397 

770 format ( I*H0S|N6UlaR MATRIX) A 398 

780 format I8H0RESTART» A 399 

890 format (//2X,*5HloO ITERATIONS DID NOT SATISFY CONVERGENCE REQUIRE 

iHCNTS FOR POINT, I3» 

8*0 FORMAT (50H03 PHASES OF A CONOENSEO SpcClcS ARE OUT OF ORDER > A 911 

End a 9i7> 


100 


n o o n n 


SUBROUTINE EXECUT 

C CHANOES TO subroutine EXECUT 

CEXccllT EXECUTION CONTROL ROUTINE 
C 

CONHON/OEPENO/U< 2S0|3) iHl2SQt3l • ALRH A ( 2S0»3 • 2 ) •RH0V(2S0)*SH(250t 
Common/ I noep /s.os.x ,ox,y(2soi.oy 

COMMON/PROP /RHO « 250,3 ) iSMUI 250,3 > ,Prij50i3» ,BlEIB50.3) . 

» SMI (250,2,*) , SC I (250 ,2, A) ,T(250,3) ,Aff25Q) 

COMMON/TPROP /EPS (250, 3) ,PRT( 250,3) •RLET(250,3> 

common /ZCALC/ 2ETA0,ZETA,ZET*N,2eTAP,7STAR»3),DS2(2),Y7ETA. 

) YTzETA,YE06E 

COMMON/RaLLBC/ TW all, SHRILL, H«ULL,SM0R0,SMBW,SMD«»N 

COMMON /EOGEBC/ TEOSE,5HroSE, hedge, UE06E,PE06EBjAPE0GE,0UEDS0, 

I OUEDS,DUEOSN,OPEOSN 

COMMON/NORMAL/BLREP ,URCP ,PHORCF ,SMUREf iREYINF 

COMMON/CONST /SINiT,X(NIT,XMAX,oeLTAI,SNI ,SN2 ,Sn3,EPSLN) ,EPSLN2, 
I EPSLN3,CONVR6,020Y,OHOY,ooysO 

COMMON/COUNT /NY ,NYI ,NY2,NY3,J0,JN,JA, NEL ,NEL I ,NSP,NMAX,NYI 

common/option/ I DEAL, LA MUR, INCOMP 
COMMON/STATN /ISTaTN,MA*IT, iter 

COMMON/PRnTCT/NSPRNT.NLPRNT, ISPRNT, ILPRNT,LNSPP6,LIneSR 
C0MM0N/5UMARY/SUM*RY( 15,30) * NREC ,NST A , | ST| , nV aR , I DRUM , L AST 
COMMON/) DEBUG/ I DEBUG) 3) , RMOOMP , kENOMP 
COMMON/RSTART/IRSRO, IRSRR, ITaPE 

COMMON /AL/ INSTAT,EPSLIN 

^ COMMON /OMORI/ CUli) 250,3) ,CUV(250, 3) ,CVV) 250,3) ,CNW(25o, 3) , GAMA, 

MAOPLG-0 

C 


C begin CALCULATION OF RE* STATION, 
C 

200 ISTaTN • ISTATN ♦ 1 

IF CISTATN »LT, InSTAT) GO TO 100 
EPSLNl m EPSLIN 
EPSLN2 ■ EPSLIN 
EPSLN3 ■ EPSLIN 
100 ITER a 0 

CHECK IF DEBUG IS ON, 

KMOOMPaQ 
KENOMPag 

IF (IDERUG(I) ,LE, 0) GO TO 2H0 

IF (ISTATN ,LT, IDEBUGI2) ,0R, ISTATN ,gT, )0EBUG(3)) GO TO 2M0 

IFI IDEBUG) 1 ) ,E0, I )KMOOMPa| 

IF( lOEBUGI I ) ,E0,2)KEN0MPa| 

determine NEW STEPSI2E AND CONTOUR PROPERTIES AT FORRARO STATION, 
2*0 CALL STEP 


3 ) 


/ZCALC/ 

/ZCaLC/ 

/EOGEBC/ 

/EOgEBC/ 


ZK /OmORI/ 
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c 

C C*LCULATC ZET*N and ZCTA rOR ITER • 0* 

c 

ZETAN»ZETAO*OS*ZCTAR 

ZETA»0.5*(ZET*0*ZeTAN) 

c evaluate Wall and edge conditions at forward station* 
c 

call BNDCNO 

• the test for EOUaLITy between non-integers m»y not be MEANINSFUL* 

IF(SNOWN*NE*0* >N«0FL6a I 

c 

C rEGIN iteration loop* 

C tiFOATE SMW AND HW PASED ON LATEST 0/F AT WaLL» 

c 

300 IF (IDEAL »EQ» 0 «AN0. ITER »GT» 0) CALL HO00E(3) 

C 

C UPDATE AVERAGE PROPERTIES AND CALCULATE AUrILIARY QUANTITIES FOR 
C DIFFERENCE EQUATIONS. 

C 

CALL ITERAT 
C 

C SOLVE momentum equation for u* 

c 

CALL MOMNTM 
C 

C UPDATE average U FOR SUBSEQUENT EOUATIONS* 

C 

IFI INCOMPtGT.OlGO TO 370 
DO 320 l>l»NV 

320 UII.JAI • 0*So*(U( I iUO> ♦ UII.JNI) 

C 

C SOLVE energy equation FOR H AND SM. 

C 

CALL ENERGY 

IF( IOEAL*6T*0)GO TO 3R0 


IF(MA0FLG*EQ*0I GO TO 3M0 
C 

C SOLVE ELEMENT EQUATIONS FOR aLPHaI. 

C 

CALL ELEMTS 
C 

C calculate LAMINaR transport and TheRMOoYNaNIC properties aT each 
c HcSh point. 
c 

3R0 IF (IDEAL *GT. 01 60 TO 3HS 

call HOOOe (RI 

GO TO 3T0 

3RS DO 3S0 I • I.NT 

SHB*SH( I.JNI^URCFaUREF 

CALL IGOOE (T( I iUN> .S mB .PEDgEB tOiRHOB,SHUB.PR( I , JNI > 

RHOI I * JNIaRHOS/RHoREF 
3S0 SMU(I.JN) • SHUB/SHUREF 
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c 

C (iPOATC ZCTAN, ZET*, ANO ZtTAP, 

C 

370 Call zfunc 

c 

C calculate turbucent transport properties* 

c 

IMLAMNR.GT.OIGO to 380 

call coot 

c 

C fMTEfiRATE continuity EQUATION TO OBTAIN RHOV* 

C 

38(J CALL CONTNU 
C 

C iterating on solution, CHECK FOR CONVERGENCE OR MAXIMUM 

C ITERATIONS. 

C 

IF IMAXIT «LE* 0) GO TO 500 
IF IITER *NE. 0» go to N20 

OuOYO ■ 020y*I‘**0*U(2i JN» - 3*0«U(|*JNl - uT3,JnU 
ITER»ITER>| 

GO TO 300 

H20 0U0Y«02DY*(-U(3,JN)**«.*UI2,JNI-3.*UI I ,JN) | 

IF(ABSMOUDY-OUOYo>/DUDT) ,LE,CONVRG*Go to soo 
IF (ITER *GE. MAXITI GO TO SOO 
ITER • ITER ♦ I 
DuOYO«OUOY 
GO TO 300 
C 

C eNO of iteration loop, 

c 

500 X ■ X ♦ ox 
s«s»os 
c 

c calculate gross BOUNOARY layer parameters, 
c 

Call params 

c 

c check for end of Case* 

r 

IF (X ♦ |,0E*A .GE* XMAX) go to TOO 
C 

C PRINT AT This STATION IF REQUIRED, 

C 

CALL PRINT 
C 

c calculate zeta ANO zetap for next station, 
c 

ZET AP>( ZET AN-Z star! I ) |/(OSZn •♦OSI 

2STAR(M«ZETA0 

zctao>zetan 

OSZI I )>0S 
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r» r» n r> n r% n 


move forward values to back valuer* 

00 600 t•l•Nr 
U( I • JO)aU( I • JN) 

H( I • JO)"H( I t JN) 

SHU I JO»-SH( I , JN) 

CUUI I *J0) • CUUJ I , JN) 

cuvn iJO) • cuv< I , JN) 

CVVC I f JO) ■ CVV( I , JN) 

CWW(IiJO) ■ CWWM.JN) 

00 580 lEL*t iNEL 

S80 AUPHAf I »JO,IEL) ■ ALPH A < I , JN , ] EL ) 

RHOI I ,JO)«RH0( I t JN) 

SMU( 1 t JO)-SMU< I I JN) 

PR< 1 t JO)«PRt I , JN) 

BlE( I t JO)*B lE ( I • JN) 

00 5R0 ISP«1 »NSP 

SHI ( I ,jo, isp)«sNm » JN, tsp) 

5»0 SCIU.JO.ISP) ■ Sent, JN, ISP) 

T( I , JO)*TI I , JN) 

EPS! I , J0)-EPS( 1 , JN) 

PRT(I,J0)»PRT(I,JN) 

600 8LET«I,J0) ■ BLET(I,JN) 

GO TO 200 

pNO or station calculation. 
pND OF CASE, PRINT FINAL STATION. 

ROO ISPRNT 6 0 
ILPRNT-0 
LAST*I 
CALL PRINT 
CALL SUMTAB 

IF( irswr.gt.o)eno file itape 

RETURN 

ENO 
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SUBROUTtNC arUNC 

CGFUNf 6eNEB«TC ARKAVS OF VTILi B6P» ANQ BGPP VS* NORMALIZED VaBG 

C AT EACH MESH POINT IN THE BOUNDARY LATER* 

C 

COMMON/ I NOEP /S • OS , X , OX , Y ( 2SQ I »OY 

COMMON /YTABLE/ VT I L I Z50 I i BGP ( 250 1 * BGPP ( 250) 1 1 TT I LF ; I TT I LF , /YTaBLE/ 

T CyTILIAI /YTaBLE/ 

COMMON /ZCALC/ ZEtA0,ZETA,ZETAN,7ETAP,ZSTaRI3);pSZI2» ,YZETA, /ZCALC/ 

I TTZETAfYEOGE /ZCaLC/ 

COMMON/NORM AL/BLREF I UREF I RHOREF*SMUREf, RE Y INF 

common/const /SINiTf X iNiTf XMAXfDFLTAl *SM1 |SN2*SMB,EPSLNt *EFSLN2* 

1 EF5LN3tC0NVR6,O20Y,O*»OY,oOY5Q 

COMMON/COUNT /NY tVYI i N Y 2 * N Y 3 , JO , JN , J A , NCL , NEL I . NSP , NM AX , N Y I 
C0MM0N/NEW7 /6P0,PAM9t INT0K»2ETAPI 
C 

double precision OARGiOPAREN 
DATA EMI/I.7IA28I8/ 

C 

c iF NO stretching function is SPECIFIED, SET » • YTIL, 
c 

• the test for equality between N0N-INTE6ERS M*Y NOT BE MEANINGFUL, 

IF(SN3*NE*a* IGO Tn ISO 

YTE0GC*0ELTAI/«BLPEF*ZETA0I 

YEOGE-YTEDGE 

T|«NY1 

oy-yedge/ti 

YTZETA-I , 

YZETA-YT7ETA 
DO 100 l•l(NMAX 
YI I )»FL0AT( I-l )*0 y 
YTILI I )»Y| I ) 

BGPI I )-l * 

lOO BgPPI I ) ■ 0*0 
60 TO 250 
C 

jPPLY NEWTON-RaPHSON iteration to find alpha (SN|I and beta (SN2) 

FOR stretching function. 
fIno alpha ano beta where oy/oyt ■ input Value. 
c 

ISO power ■ I.0/SN3 

YTEDGE-DELTA I /(BLREF*ZETA0I 

1-0 

YTN-I *E-7 

lAO OaRG^EMI-TTN/YTEOGE*!. 

BRKTmOLOGIOARG) 

FXN-EMI /SN3*BRKT»* (POWER- I * I /OAR6-6PO 

FXPN-EMI/SN3* ( ( POWER- I • ) *BRICT** ( PORER-2 * ) -BRKT* • ( POWER- 1 • ) )• 

? EM|/( YTC06E*0AR6»0AR6) 

ytni-ytn-fxn/fxpn 

IFI ABS( I YTNI-YTN) /YTN) *LE. *0001 )G0 TO |70 

YTN-YTNI 

I»I*I 

IFI I *GT* lOOICALL debug (AhGFUNC ) 

GO TO lAO 

l7o SN| ■ YTNI/YTEOGE 

SM2»I AL0G<EHI*SNI *1 * ) ) ••POWER 
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c 

C nETE»»*’INe YTeOGEt YedSEi *No fixed MeSh spacing 0^» 

C ALSO DETERHINE YZETA, 

YEOGE'VTeoGE* I * AL06*EMI* • I **5nI • • ••PO*eR“SN* • 

T|-MY| 

DyayEDGE/TI 
YTZETA-I • 

y2ETA*Y YEDGE* I ( ALOG • EH I • t Y TZE T A/ Y YCOGE^SN | I ♦ I » I f ••P0WER*»SN2 ) 

C 

C fiENERATE ARRAYS OF Y, YTIL, BGP i ANB B6PP At EACH HtSH POINT. 

C 

00 200 l■l•NMAX 
Y I I ) • FLOAT ( t - I > *0Y 

OARG«tY(t >/YTE06E*SN2) ••SN3 
OPARCNsOCXP(OARG) •1*000 
TT1LII>*^TC06 E*(OpAREn/EHI-SN|) 

ARG«EH| •( YTfL ( I I /YTEOGEASNI ) *1 . 

BPKT«AL0G(ARG) 

8<5P( I l•CH|/SN3•BRKT••^P0RER-l * »/AR6 
200 BGPPm ■ EMI/SN3*MP0RER - I ,0»«8 RKT**»Po»ER • 2*0) - 
7 6RKT**IP0»CR * 1 ,on«>CH|/|YTE06C*ARG**2» 

C 1»R|TE YTIL* Y» BGP, AND B8PP ARRAYS. 

C 

2S0 TTILU) ■ 0*0 

:• THE TEST FOR EQUALITY BETWEEN NON-IMTEGErS HAY NOT BE mEANINSFUL. 
IFISNS.EO.O. )G0 To 300 
WRITE 16*90001 

9000 format (IHI,3IX,9hYTIL*I*X,3HY»G*I«X,2H6P,ITX*3h 6PP/) 
NyUsHtN0lNYI*3l *N mAX) 

WRITE 16*9100) 1 YT IL « II *T II ) *86P» I ) *B6PP(1) * I»I iNYU) 

9100 FORMAT I20X* IPMEZo.TI 

SET COUNTERS. 

300 NY ■ NYt ♦ I 
NYI»NY-| 

NY2«MY-2 
IYTILP-0 
IYTILF-0 
RETURN 
ENO 
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SUBROUTINE HOOOE (ICAtL) 

CHooof tfcbl - ooE Interface subroutine for htoRogen-oxtgen system. 

c 

C tFCBL common blocks 

c 

CONMON/nEPENO/U(2Sdi3> .H(2S0.3t .ALRHA(2S0,3.2) *RHOV«250> «SH(2S0.3) 

COMMON/ I NOEP /SSinS.X.OX|Y(2SO> | 0 Y 

COMMON/PROP /RH0(250»3» iSMU ( 2SO . 3 I .PRNO ( 2S0 • 3 ) tBLC(26o.3l . 
i SHI ( 2SOi2iA) .SCI (2S0i2 .A| ,teM(2S0;3) • AVI2SO) 

C0MMON/XTABLE/RWT*b<500> *XTA8R*H500» . LRWT (B . I rrxp , CRWX ( 6 > , 

1 PET*B(500) iXTABREI500» »LPET»B,|PExP,CPEX(4» , 

2 UETaB(SOO)i luetab. IUExP.CUEXU) • 

3 XTOUOXISOOl »LOUO«T, louoxp 
COMMON/WALLBC/TWAlL.SHWALL.HWALL.SMORO.SHOR.SMOWN 

COMMON /EOSEBC/ TCD6E,SHED6E, HEDGE, UE06E,PE0SE8,AFE06E,0UF0S0, /CDGEBC/ 

T DUEOS,OUEOSN,OPEOSN /EOQEBC/ 

COMMON/NORMaL/BLRp F ,UREF ,RH0RCF,SMUREE,REYIMF 
COMMON/COUNT /NY,wT I ,NY2,NY3, jO. JN, JA.NEL.NELI »NSP,NMAX,Ny I 


c 

c 

c 


c 


COMMON/STaTN /IST*TN,MAXIT, ITER 
C0MM0N/PE6AS /gamma ,FMOLRT,PRi 
COMMON/NE iRI /ALEwIS.TLERIS 
C0MM0N/NER2 / RHOeB , SMUEB , RE YL ,SXO 
COMMON/NER? /IYEO 

COMMON/NEWIO /APROF<50»,YBYNA(50* .LAPrOF. |AYP.CAYX rS),AEWALL 
COMMON/RSTART/ IRSPO, IR5WR, I TAPE 

oOE COMMON BLOCKS 

/points/ 
/points/ 

/POINTS/ 


/MiSC/ 

/MISC/ 

/MiSC/ 

/MISC/ 

/MISC/ 

/ iNOX/ 
/iNOX/ 
/VISCXO/ 


LOGICAL TP.HP.SP 

dimension INDEX! I3» .FmRTIA) 


_COMMON /POINTS/ HSUM ( I 3 I . SSUM ( | 3 I , CPR ! I 3 I ; OL V TP I I 3 ) J OL VPT U 3 > , 
t 6AMMAS!|3 ),p(| 3) .TiPPpf I 3» .RM! 13) ,SonVEL< I 3) i 

2 TtT(I3) 

COMMON/SPECES/COEF (2,7,30>.S(30I.EN(30,I3) ,ENLN(30| ,80(30), 


0ELNI3O) .Al 15, 30) ,SUB!3 q,3) ,IUSE!30) ,T£MP(50,2) 
COMMON /MISC/ CNN,SUMN,TT,S0,AT0m( 3. iQS) .LL mT( IS) ,BOI IS) , 

BOP( 15,2) ,YM,TLOR,TMIO. THIGH, PP,CpSUMjOF,E8RAT, 
HSUrO,HPP( 2) ,RHH(2) ,VMIN(2) .VPLSIp) ,PP(2) , 
name! 15,5) ,ANUm( IS.5) ,PECRT! IS) .EnThT|S),FAZ!1S), 
RTEmP(|5),F0X!I5) ,DENS! 15) ,TLN 

COMMON /INOX/ CONvG,TP,HP,SP,MOLES,NP,NPT,L,NS,KMAT; IMAT, I«| ,NC, 
JSOl , JLIQ, IC, IQ2 
COMMON /WISCXO/ VlSCEl 131 ,PR! 13) 

Common/ I node /tin(13),ofin( i3),hin!i3i 
C 0MM0N/0UT00C/HQBuF(30t 13) 

COMMON/OUTRHO/OEN| |3) 
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C sPCCICS MOLCCULAff WEISHTS STORED IN FN«T IN SAHE ORDER AS THCRHO 

c data, NANECT (II H 12) H2 13) H20 (A| 0 IS) OH (4) 02 

DATA IfMRTi l),l*l|4)/l»00S»2»0lS»l8»0|At I 4 tOOO» I 7«00® ♦ 32 *000/ 
Data BJ,S6/777«48o04i32. I7H/ 

C 

c ^RANCH TO appropriate LOGIC* 

c 

60 TO I IOOO*20UOi3000|RQOO) • ICALL 
C 

C • I ••••• 

C 

C INITIALIZE ODE STORAGE AND CALCULATE CONVERSION CONSTANTS POR 
C TPCBL • ODE interface. 


C 

1000 CALL OOE 
NSP«NS 

C A CONSTANT — — OT CONVERTS A TFCBL QUANTITY TO AN OOE QUANTITY AND 
C includes normalization FACTORS WHERE APPLICABLE. A CONSTANT ——TO 

C CONVERTS AN OOE QUANTITY TO A TFCBL QUANTITY. 

C 

SMUT0«I./IS6«SHUReF) 

H 0 T«UREF«UREF/I I .a«BJ«SG) 

RHOOTaSGFRHOREF 

RETURN 

C 


C ••••• ICALL ■ 2 ••••• 

C 

c oo an iscntropic eypansion, given pressure and Initial temperature 
c aT the edge of the bOUNojRY L*YeR. A**0 CAtcWI-ATi aM edge velocity 
c table. 

c PERFORM initial T-P CALCULATION TO CSTjigtlSH ENTnOPY* 

c 


2000 Pll> ■ R.72539574 e-H*PE06EB 
T - TEOgE/1.80 
OF* I I .-AFED6E ) /AFeDGE 
C 

C ijSE initial GUESSES FOR ENII.I) ANO ENLNII) ALREaDY CALCULATED 
c by oDE. 

C 

NPTal 

TPa.TRUE. 

HP*. FALSE. 

SPa. false. 

CALL TPCALC 
C 

C SAVE ENTROPY AND CALCULATE VELOCITY, 

r 
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SO«SSUMM I 

ShEOGC > I .987l65o*HSUM| I )/H0T 
HEOGe>SljeD 6 E«UE 06 F*ue 0 GE/ 2 , 

c 

c calculate RHOEB *No SMUEB rOR initial 2ET*P calculation* 
c 

RHOEBbDENI I )/SG 
SMUEBaVISCEI I )/SG 

c 

C PROCEED thru pressure TABLE WITH S-P CALCULATIONS* 

c 

iNDal 

SPa*TRUE* 

HPa, FALSE, 

TPa. FALSE* 

TiNtI) • TEDGE/I*80 
2020 OO 2100 IBUF « I*|3 

PIIBUF} a S.TJSSTsTAE-SwPETABnNOI 

INOEXt IBUFIalNO 

lNOalND«t 

IFI INO-LPETAB I 2100,2100* 21 10 
2100 CONTINUE 
21 10 NPaiBUF 
NPT a I 
CALL SPCALC 
C 

C obtain answers from ODE OUTPUT BUFFERS, 

C 

DO 2200 IBUFa|,NP 

She a I *TB7| ASO*HSUH( I8 UF)/hOT 

IXalNOEXI I8UF) 

2200 UETABIIXI a SQRTt 2*0«ABS(HEDGE > SHE>) 

IF (iNo ,gt* lpetab) return 

t 

C STORE GUESSES FOR NEXT CALL TO SPCALC. 

C 

TIN! I ) a tTTI 13) 

Do 2230 |a|,NS 

2230 EnI I * I ) a EN( I , I 3) 

GO TO 2020 
C 

C •*••• ICALL a 3 •*••• 

C 

C PERFORM A T-P CALCULATION AT THE WALL TO DETERMINE HWaLL BOUNDARY 
C CONDITION* 

C 

3000 P(l) a R*72S3TS76 e*N«PEDGEB 
T a TWALL/I*80 

IFI ( ISTATN.GT.Q) *0R* ( ITER.6T.0) >60 TO 3020 
OFa| I .•AFWALL )/AFwALL 
DO 3010 lal.NS 
EN( I * n a 0* IQ/NS 
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3010 CMLNCn • ALOfilCNi I , I ) ) 

60 TO 30**0 

3020 or • AL^HA ( 1 1 JN»2 ) / alpha « I » JN| I ) 

00 3030 t>liNS 

CNd * U»SCm , JN, I > /FMIATJ I » 

iriCNI I , n •I.T. I .E-6)eN( I I I » ■! .E-A 

3030 CHLN(!) ■ AL06 ( EN< I • I ) ) 

30<«0 HPT ■ I 

TPatTRUE* 

HPa.EALSE* 

SP«. false. 

CALL TPCALC 

SHWALL ■ |.T87l65e*HSUH< I )/H0T 

hwall>shnall 

RETURN 

C 

C ••••• ICALL ■ *• ••••• 

C 

C PERFORM A SERIES OF H-P CALCULATIONS ACROSS THE oOUNOARY LATEP TO 

C ORTaIN the THERMOoTNAmIC ANO laminar transport PROPERTIES AT EACH 

c mesh pojnt. 
c 

ROOD HP a .TRUE* 

TPa. false* 

SPa. false. 

iNOal 

R020 Oo R200 |BUF a |,|3 

PIIBUFI a R,7253T576E-*»*PE0GEB 

TINIIBUFI a TEMIIN0,JN»/I .80 

OF |N( |BllF)aALPHA ( ( NO • JN » 2 I / ALPHA ( I NO . JN . M 

|F| < ISTATn.EQ, IRSRO) .ANO. ( iter. EO. 01*60 TO RORO 

IF! istatn*iteriromo.roro.**oao 
RORO 00 R050 |a|,NS 
ROSO EnII.IBUFI a O.IO/NS 
TIN! IBUF>a3SOO* 

60 TO RQBO 
R080 DO R070 |a|,NS 

EnI I . IBUFI asCi I INO. JN, I )/FMRT( I > 

IMENI I ,|BUn *LT. I .E-6>EN( | . IRUF«a| ,£.« 

ROBo HINIIBUF) a Sh< tNo, JN)«H0T 
INOEXI |BUF*a|NO 
IF (INO .6E. NY) 60 TO R2 |q 

R200 INO ■ M1NO(|NO*ITeO»NY» 

R2|0 NPalBUF 
NPT a I 
CALL HPCALC 
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c 

C cONVEKTi normalize, and store answers from OOE buffers into TFCBk 
c arrays* 
c 

DO R300 I8UF>I ,NP 
IXalNOEXi IBUF) 

RHOItX,JN| a deni IBUF)/RH 00T 
SMUI IX, JNIaVISCEI |BUF)«SMUT0 
PRNOt I X,JNlaPR( IBUF) 
iFIPRf •6T*0* IPRNOl I X, JNIaRRi 
BLEI IX, JN|a| * 

TEMI|X,JNI a l*B0«rTT( IBUFI 
AVI IXIaSONVELI IBUF) 

00 <1300 I a I ,NS 

SCI I IX , JN, I lagNI I , IBUF) •FHiTI I ) 

‘)300 SmHIX,JN,|) a HOBUFI 1 , IBuFI/hOT 
IF IIX ,LT, NY) 60 TO R020 
C 

interpolate for NCCESSaPT properties at mesh points not solved 

USING ODE. 

CALL PHOENX (RhOI I , JN) , V, IYEq,NY) 

CALL PHOENX ISMUl 1 , JN) ,V,irE(},NT) 

CALL PHOENX (PRNO( I ,JN) ,T,|VEQ,NV) 

Call phoenx i temi i , jn) , v , iyeo.ny) 

INTERPOLATE FOR SC| AND SHI ONLY IF ALEWIS OR TLeNIS nOT UNITY, 

• the test for equality between non-integers May not be meaningful. 

IF 1 1 ALEWIS. EO. I . ) .aNO.I TLEW tS.EQ* I *) )RETURN 
Oo S*IO Ia|»NS 

CALL PHOENX ( SC I I | , JN , I ) , Y , | YEQ . NY ) 

NV|o CALL PHOENX I SH I I | , JN , I) , Y , I YEQ , NY ) 

RETURN 

END 
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SUSttOUTINE HPCALC 

CHPcAlC PCRFOUM I SERIES Of ENTH ALP^-FHESSURE CALCUtATtONS* 

C * 2 

COHMON /POINTS/ HSUM II 3 > i SSUM II 3 » , CPP C I 3 ) , OL VTP M 3 » , OL VPT II 3 » , /POINTS/ 

: G*MMAS< 13) ,»»( 13) ,T;pPP( m ,WHI |3> ,SfNVEL< 131 . /POINTS/ 

TTT1I3) /POINTS/ 


COHMON/SPECES/cOCF (2.7,30) iS( 30) t£N( 30t I 3) ,ENLNl30) ,H0(3O) , 

1 OEln( 30) iAMS.30> •SUB(3o, 3) i lOSEIso) iYEmp(S 0>2> 
CONHON /MISC/ ENN,SUMN,TT,S0,AT0M|3,i05) ,LUMT| ig) ,|0C IS) , 

7 B0P( 15,2) ,TN,TtOW,TMlOtTHI6MiPPfCPSUHjor , e9RaT» 

2 HSU«0»HPPt2 ) ,RhO< 2* tVMlN<2> |VPLS<2> ,Rp(2) , 

3 MAMfl 15,5) ,ANUH( |S»5) (RCCHTf 15 ) ,EnTH( |S) ,PAz( |S) , 

R RTEMP( 15) ,POX( I5| ,OENS( IS) ,TLN 

COHMON /|N0*/ C0NV6»YP|HP,SP»M0LFS»NP,NPT,UtNS,itMAT;iMAT, |0| *NC, 
7 JS0L,JLI0itC|l92 

COMMON/ I NODE /T|N(|3),0F1N(I3),H|N(|3) 

COMMON/OUTOOC/HOBUP(30, 13) 

c 

00 *»0 IP • l,NP 

c 

C SET ASSIGNED PRESSURE , ENTNALPT , 0-F RATIO, AND TEMPERATURE GUESS, 
C 

PP»P( IP) 

TT«T1N(IP) 

0F»0FIN( IP) 

00 ISO laliNS 

ISO ENLN(I) * AL06(EN( I ,IP) ) 

*P(I )«0F 
WPI2)b| , 

SUHaRPI I )«’WP(2) 

Do 200 I«I,L 

200 Boll) • IRPI I )*B0P( 1 , I > ♦ *PI2)«B0P(I,2))/SUM 
MSUBO ■ HIN( IP ) / I .9B7I A50 
call EOLBRM 
T • TT 

DO 300 I>I,NS 

300 MOBUFII.NPT) ■ I , 9B7 I ASO«hO < I ) • TT 

• THE TEST FOR EQUALITY RCTREEn NOn-INTEGCrs MAY NOT BE MEANINGFUL* 

IF (TT*NE*0*) go to 20 
IF (npt *eq. q) return 
20 K>0 

• the test for eguality betrcen non-integers May not be meaningful* 

IF ( IP*EO*NP,OR*Tt*EO*0* ) GO TO 30 
K«NPT 

IF (NPT.NE*|3) GO TO HO 
30 CALL ANSWER 

IF (K ,Ee* 0) RETURN 
NPTaO 

HO NPT«NPT*'| 

C 

C aLL composition GUESSES HAVE BEEN COMPUTED EXTERNALLY* 

C 

return 

end 


/MiSC/ 

/MiSc/ 

/MtsC/ 

/Mfsc/ 

/M|SC/ 

/INO*/ 

/iNOX/ 


A U 
A 21 


A 22 

A 2H 

A 24 

A 27 
A 28 
A 2f 

A 34 

A 37 
A 38 

A SO- 
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SUBROUTtNe 1600 C ( T ,SH i R 1 1 T^HR, RHO ,SHu , PR ) 

CI600P routine to C»tCUt*TE THERMOOTMUM I C *NO LAMINAR TRANSPORT 

c properties for an ideal sas» 

c 

COMMON/PFGAS /SAMMA*FM0LWT,PRI 

c 

BR ■ NT72I *OMO/FMOL«T 
BCP*6AMMA«BR/ I GAMhA-I • ) 

IF IITPHP .LE. 0) GO TO 20 

c 

C T IS GIVEN. calculate SH. 

c 

SH • BCP*T 
60 TO 30 
C 

C SH IS GIVEN, CALCULATE T. 

C 

20 T»SH/BCP 
30 Rh0»P/IBR*T) 

SMU«2.2TE-8*S0RT(T)/» I .♦ITB.A/T) 

PR«PRI 

RETURN 

ENO 


SUBROUTINE ITERAT 

C changes to subroutine ITERAT 

ITeRaT prepare for an iteration to solve the difference equations. 

OBTAIN average PROPERTIES ANO RECALCULATE ITERATED AUMLIARV 
QUANTITIES WHICH GO INTO THE DIFFERENCE EOUaTIBNS. 


COMMON/OEPENO/U( 2S0t3l .HlTSO.S) • ALRH A ( 2S0 , 3 . 2 > ,RHOV(2S0) •SH(250|3) 
COMMON/PROP /RHOI250.3I ,SHU(2S0,3f .PR(2Se,3> .BlE(2SC>.3) • 

T SHI (2So, 2.AI tSCI (2S0.2.A) i T ( 2S0 . 3 ) t A V T 2 Sq I 

COMMON/TPROP /EPS ( 250 , 3 ) , PRT ( 2S0 « 3 ) . BLET ( 2SQ . 3 ) 

COMMON /YTABLE/ TT I L ( 250 I ,BGP ( 250 I , BGPP ( 250 ) , I V 1 1 LP . I Y T I LF . 

I cytiliai 

COMMON/EFVEC /E(250> tF(250l 

COMMON/S IGMAS/S I 6i < 3 » , S I 62 1 3 I , S I 63 ( 3 » , S I G4 I 3 » . S 1 65 I S ) , S I G5S I 3 » 
COMMON /ZCALC/ ZET AO , ZE T A , 2ET AN , 7ET AP , 2ST ARf 3 I , DSZ ( 2 > , Y ZET A , 

I YTzETA.YEOSE 

COMMON /NORM AL / BLReF ,UREF •RHOREF .SMUREF .RE Y INF 

COMMON/COUNT /NY.nYI ,NY2|NY3, JO. JN, JA.NEL.NELI »NSP,NMAX,NYI 

COMMON /OMORI / CUuf250.3> iCUV(250,3) ,CVV(2S0.3> ;C«A|25 o,3) .GAMA.ZK 

00 100 I>IiNY 
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/YTaBLE/ 

/TTaBLE/ 


/zcalc/ 

/zcalc/ 


/omori/ 


I 



r» n n r> r\ n n n o 


compute average of back value and latest iterated value; 

U( I • JA)>0*S«(U( I • J0I«U( I I JN») 

H( I tUAlaOtS^lHl I I jOI^Ht I I JN)I 
CUUd.JAl • O.SO* (CUU( I . JO) ♦ CUUIltJNH 
CUVdtJAl ■ 0.50* (CUVd I JO) ♦ CUVf|,JM)) 

CVVd(JA) • 0.50*KVVd iJO) ♦ CVVd.JN)) 

CwWdiJA) ■ 0*S0*(CWWd iJO) « CWWdfJNI) 

DO 20 IEL-I,NEL 

20 ALPHAd.JAtICL) - 0*S0* I ALPHA d > JO • lEL I *■ ALPHA (I • JN • I EL I ) 
sm I • JA)*0»S*( SHI I I JO) «SH( I , JN) ) 

RHOI I , JAI-OtS* IRHOd • JO) «RHOd . JN) ) 

SMUd ,JA)«Q.5* <SMU( I , JO)*SMUd , JN) ) 

PRI I t JA)>0*S*IPRI I •JO)«PR< I • JN) ) 

BlEI I t JA )>0 >S* (BLFT I • JO) «RlE( I » JN) ) 

Td ,JA)«0.5»(T<I , jO)*Td , JN) ) 

EPS! I iJA)«0«S*(EPS( I, JO)*EPSI I ,JN) ) 

PRTC I , JA )a0*5* <PPT I I * JO) ♦RRTI I , JN) ) 

BLETd •JA)ao.S*(SLETd i JO)>BLETd |JN) ) 

calculate and save E and F at each zone for THIS iteration, 

El I )«RHOI I ,JA ) •BSP I I ) ‘ZETaP^VTILI I ) /TETA 
100 fid • B(iPlt)/<ZETA**2*REV|NF) 

CALCULATE SICHaS AT BALL AND FIRST INTERIOR POINT TO INITIALIZE 
PUSH-DORN STORAGE FEATURE, 

DO SOO K"l ,2 
TMlaEPSIK, JA) 

TM2«SmuiK I JA) /PRIK • JA ) 

TM3aTM|/PRTIK, JA) 

S|6I IK )»SMUIK , jA ) ,TM I 
SIG2IK)«TM2*TM3 

SIS3(K)«SMUJK, JA)-TM2*TM1-TH3 

Sl6**lK)aTM2»IBLElK,JA)-l,)*TH3*IRLETlK,JA)-|,) 

SOO SISSIK) ■ TM2*BLE ( K , JA ) * TH3«BLET I K , jA ) 

RETURN 

End 
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n n n n on 


SUBROUTINE LCURV ( X , XT AB i YT*B ,NP , 1 1 ,T ) 

CLCURV linear interpolation ROUTINE RHICH HANDLES B I SCONT I NU I T I ES # 
(MOOIPIEO VERSION or SUSROUTINE CURV.I 

DIMENSION XTABINP) .TTABINP J 

nCriNE linear interpolation function o 

0(XKM,YICM,XIC,YK»«TKM*(X-X(CM»*IYK-YKM»/(XK-XRM) 
if CNP ,GT, n 60 TO I ID 
ONE ENTRY IN TABLE 

Y ■ YTAPI I I 
RETURN 

EXTRAPOLATION 
LARGE X END OF TABLE 
IIO ir »X ,tT, XTAB(NP-n) 60 TO 2 

Y • RIXTAB<NP>l),vTAB(NP«n,XTAB(NP)>YTARrNPn 

IX-NP 

return 

C small X end of table 

2 IP (X «GE* XTaB(2)I go TO <t9 

Y • QIXTABt I I ,YTAR( I I ,XTABI2) tYTABIE) » 

IX»1 

RETURN 

c interpolation 

NR IF IIX «LE» NP» 60 TO H 
IX • NP 
GO TO 6 

R IF ( IX (GT* 0) GO TO 6 

I X ■ I 

6 IF(X>XTABI ixn R«G0»7 

THF TEST FOR EQUALITY BETRCEN NON-INTEGERS M*Y NOT BE MEANINGFUL. 
GO IF (XTASMXI .NE. XTAB(|X-Ht GO TO 62 

Y ■ YTABI |X*n 

return 

G2 YbYTAB(IX) 

Return 

T IX-IX-1 

IFI X-XTABI 1 X ) I IO.GOi7 

8 Ix«|X-t 
GO TO 10 

9 IX-IX-I 

IFIXTABI IXI-X) BiGO.R 

c Interpolated y 

10 Y»qi XTABUX-l ) ,YT*BUX-I » .XTABI IX) ,YTaB( IXlf 
RETURN 
END 
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c 


SUBROUTINE MATRIX 


A 

A 

A 


I 

i 

H 


DOUBLE PRECISION g,X 
LOGICAL C0N#S,MR|5PtTR 

COMMON /POINTS/ HSUM I I 3 ) i SSUM I I 3 ) t CRP ( I 3 * i OL VTP I I 3) J OL VPT I | 3 I , 
GAMMASI|3)«P(I3I ,T,PPPC I3» ,WMI IS» »S0NVEL< 131 » 



2 TtTCI3» /POINTS/ 

COMMON /SPEC ES/C or F (2,7,30(,S(30),EN(30,I3 »,ENLnI 30»,HO|30», 
t 0ELN( 30) I A< IS .30) . SUB < 3 q , 3 I , lUSE I 30 ) . TEMP I 50 . 2 > 

COMMON /MlSC/ ENN,SUMN,TT,S0.AT0HI3.I05) .LLMTI 15) ,B0II5) . /M|SC/ 

1 BOPI 15.2) .TM.TUOR.TMIO, THIGH, PP,CPSUM*OF,CORAT, /»ISC/ 

2 HSUnO.HPPI2) .RM0(2) .VMINI2I ,VPLS<2) .RP(2) , /MiSC/ 

^ NAME) 15.5) .ANUMMS.S) .PECWTIIS) .EnTMI IS) .FAZI IS) . /M|SC/ 

4 RTEmPI IS) .POX (15 ) .OENSI IS) .TLN /M|SC/ 

COMMON /DOUBLE/ G ( 20 . 2 I ) . X ( 20 ) X *7 

COMMON /INOX/ C0NV6.TP,HP,SP.M0LES,NP,NPT;L»NS,icMATi IMAT. |G| .NC, /InOX/ 

7 JSOl. JLIO. IC. 102 /iNOX/ 

0 A 2 1 

IQ2>I0I«I * 22 

I03«I02^I * 23 

KMAT-I03 * 2H 

IF («NOT«CONVG,ANo,TP) KMaT-102 * 2S 

IMAT«KMaT-| * 26 

C A 27 

C CLEAR matrix storages TO ZERO 6 28 

C A 27 

DO 20 I-I.IMAT * 30 

Oo 20 .(CHAT * 3) 

20 G( I ,K) • 0*000 

SSS-0. * 3R 

HSUM(NPT)>0* * 3S 

C A 36 

C BEGIN SET UP OF ITERATION MATRIX A 37 

C A 38 

KK-L A 37 

Oo no j-i.NS * 

H«HO( J)»ENIJ.NPT ) * 7) 

IF (IUSE(J>) 1)0.30.70 * 72 

30 F»(HOIJ)-SI J)*ENLN(J)*TM)*en( J.NPT) A 73 

SS*H*F 6 77 

TERM|«H * 7S 

IF (KMAT,EQ*I92) TERH|«F * 76 

00 SO I«l .L * '•2 

C A 78 

C CALCULATE THE ELEMENTS R(I.X) A 77 

C A SO 
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THE Test FOP equality BETWEEN N0N-INTE6CRS M*T NOT BE MEANINGFUL. 


IF I Al I • J) .EQ.O. > GO TO SQ A S| 

TeRH>AI t.JIcENl J iNFT) a S2 

00 NO K>l |L A S3 

NO G||,K» ■ GII.KI ♦ AIF,J)*TERH 

G( I tlQI MGI 1 1 IQI INTERN A S7 

G( I . I02)-G< I I |02)4A( I • J)*TERM| A SB 

IF ICONVG.OR.TP) GO TO SO A SR 

61 I » I03)>G< I • I03)«A< I . JMF A AO 

IF ISPI G( IQ2. I l■r|r IQ2i I >«A( I ,JI*SS A 61 

50 CONTINUE A 62 

IF IKMAT.EQ. 102) GO TO 90 A 63 

IF (C0NV6.0R.HP) GO TO 60 A 6<t 

G( I02.IQI )>G( IQ2f IQI )*SS A 65 

G(IQ2.I02)-G(IQ2ilQ2)«H0(j)*BR A 66 

6( 102. 103 ) ■ 6 ( I Q2i !03 ) ♦ ( S I j) -ENLNC J)-T m) »F A 67 

GO TO 70 A 6B 


AO <•( 102. 102 )«G( |Q2i I 02 ) ♦HOI J ) «H 

IF (CONVG) GO TO A6 
fiH«2.I83)"fl« 102, |03 )*Hq( J),F 
"0 G( lOI , I03 )sG( 101 , !Q3)*F 
®0 G( 101 . |02)*gI lOI 1 102 ) *TeRHI 
6o TO no 

C 

C CONOENSEO SPECIES 

C 

RO KK*KK«I 

oo too miL 

6(1 ,KK)aA( I ,J) 

100 6(1 , (CHAT) a G(I,KHAT) - A ( I , J ) *EN ( J , NPT ) 

6(KK.(Q2)>H0(J) 

G(KR.KMAT)aHO( J)*S( J) 
HSUM(NPT)aHSUM(NPTI'»H 
IF I.NOT.SP) GO To ||0 
S8SaSS5*S( J)*EN( J,NPT) 

G( I02,KK)aS( J) 
no CONTINUE 

SSSaSSS«G( 102, 101) 

HSUM(NPT)aHSUH(NPT)«G( 101 , 102 ) 

6(101,101 )aSUMN«EMN 
C 

c REFLECT SYMMETRIC PORTIONS OF THE MATri* 

C 

ISYMalOl 

IF (HP.OR. CONVG) lSYMa|Q2 
Do 120 |a|,ISVM 
00 120 J-I.ISYM 
120 6(J,I) a G(I,J) 


6R 

70 

71 

72 

73 

74 

75 

76 

77 
7B 
7R 
SO 

53 

54 

ss 

56 

57 

55 
SR 
RO 
Rl 
R2 
R3 
R4 
RS 
R6 
R7 
RS 
RR 
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rk n n r\ n r% 


CONPLETC THE R16HT HAND SIDE 


130 


IE IC0NV6I fiO TO IRO 

00 130 t*l>L 

X( I laBOt I )«6( I • I0| ) 

6(I»KMAT) ■ 6<IilfMAT» ♦ X«l> 

6( IQI tlCHATIaQI |QI , KHA T J fE NN-SUMN 


COHEtETE ENERGY RO* *^0 TEMPERATURE COLUMN 


IF IKMAT »EQ« I02J return 
IF ISP» ENERGY^SO^ENN-SUHN-SSS 
If IHP) ENERGr»HSUBO/TT-HSUM(NPT) 
G( I02tI03)>G( IQ2i IQ3i«ENER6Y 
IRQ G( IO?f I02)*G( |Q2i IQ2)*CP8UM 
RETURN 

End 


A 102 
A 103 
A lOR 
A lOS 
A lOA 
A 107 

A no 
A III 
A 112 
A 113 

A IIS 
A in 
A 117 
A 118 

A 120- 
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f\ r\ r\ r\ 


SUBROUTtNe mgausd a I 

C A 2 

C SOLVE ANY LINEAR SET OF UP TO 20 EQUATIONS A i 

C AH 

DOUBLE PRECISION G * X • COEFX I 20) tSUH . Z A 5 

C A 4 

CONMON /DOUBLE/ G | 20i2 I) • X ( 2Q) A 7 

COMMON /INOX/ CONVGiTP,HP,SP.MOLES*NP,NPT,LtNS»KMAT* IMAT. IQI iNC, /iNOX/ 

T JSOl.JLIQiIC,I02 /INOX/ 

C A 1 5 

C BEGIN elimination OF NNTH VARIABLE A 14 

C A 17 


lUSEI • IMAT ♦ I 

00 140 NN a I , |MAT 

IF INN ,NE. iMAT) 60 TO 30 

:• thf test for equality betreen non-integers m»y not be meaningful. 

IF (GINN.NN) .NE. 0*000) GO TO 120 
210 IMAT a |MAT - I 

return 

C A 22 

C SEARCH FOR MAXIMUM COEFFICIENT IN EACH ROB A 23 


C 

3q do 40 I a nNiIMaT 

CoEFXID a |.qE*'30 

THp test for equality BETWEEN NON. INTEGERS MaY NOT BE MEANINGFUL, 
IF *61 I *NN) .E0*0* ) GO TQ 40 
CqEfX I I ) aO« 

00 50 JaNN,IUSE| 

SUMaGI I , J) 

IF (SUM.lT.O*) SUMa-SUM 
IF (J.NE.NN) GO To rO 
ZaSUM 

60 TO SO 

HO IF ISUM.GT.COEFXI I ) ) COEFxIMaSUM 

SO CONTINUE 

COEFXI I )acOEFXI I )/Z 

40 Continue 

TEMP a |,oE« 38 
laO 

00 BO J a NNiIMAT 

IF (COEFX(J) ,GE. TEMP) go TO BO 

temp • COEFXIj) 

laj 

80 CONTINUE 

IF (I .EQ* 0) 60 TO 210 


A 2H 


A 27 
A 28 
A 29 
A 30 
A 31 
A 32 
A 33 
A 3H 
A 35 
A 34 
A 37 
A 38 

A HO 


A HH 
A H5 


INDEX I locates FOUATION TO BF USED FOR ELIMINATING THE NTH 

Variable from the remaining equations 
interchange equations I AND NN 


A H7 
A H8 
A HQ 
A Si 
A S2 
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If (NN .CQ* I) 60 TO 1X0 
00 I 10 J • NN.lUSei 
Z>6I I »J) 

G( I I J)>G(NN« Jl 
no GINNtJ) ■ Z 

C oivioe NTH ROW BT NTH DIAGONAL ELCMCNT AN 9 ELIMINATE THE NTH 

C variable from the remaining EQUATIONS 

c 

120 K«NN«I 

DO no J>KiIUSEI 

THf test for equality between non-integers Mat not be meaningful. 
IF I6(NN|NN) .EQ.O. ) GO TO 210 
I30 GCNN.J) ■ 61 NN» J 1 /6* NN.NN) 

IF (K .EO. lUSEII GO TO 160 
DO ISO I - K.IMAT 
DO ISO J«K,|USEI 

ISO GIlijI ■ Glltjl “ 6 • I » NN ) »G • NN I J t 
160 CONTINUE 
C 

C BaCKSOLVE for THE VARIABLES 

C 

K • IMAT 
170 J«K^I 

X(K)>0*000 

SUMaO.O 

|r (IMAT .LT. Jt GO TO 2QC 
DO no I • JtIMAT 


A SS 
A S6 

A Sf 
A 40 
A 41 
A 42 
A 43 
A 4W 

A 4S 


A 70 

A 73 
A 7W 
A 7S 
A 74 

A 70 
A 79 
A SO 


no SUM ■ SUM . G(K,I)Axm 

200 X (KlMGlV » lUSEII-SuM 
K»K«1 

IF OC .ME. 0> 60 TO 170 

return 

END 


A 05 
A 04 

A 00- 
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non non nnn non non nnnn 


subroutine momntm 

chomnth solve system of momentum equations for velocity uimm.ni. 



COMMON/PROP /BHO, 250,3 »,SMU.25O,3»,PR(250,S»,BLEItS0,3», 

' ^ ,SCH2S0i2,A» ,TI250,3) ,Af I2S0> 

COHMON/TPROP /EPS(280,3»,PRT(250.3I,8lET<2SO,^ 

COMMON /YTABLE/ ^T I L ( 250 > , B6P( 250 » J BSPP I 250 I , | YT I LP 1 1 YT f LF . 

t CVTIL(B) ■•wr, 

CoMMON/MATRX /A(250,3I ,B(250) 

COMMON/EFVEC /E(250> ,F(250> 

COMMON/SISMaS/SISI <3»,SIG2(3), 5163(31, sign ( 3), St G5(3 i .S tGC«f 3i 
_C 0 MM 0 N /EOGEBC/ TFOGE , SHCD 6 E .HEDGE , UE 06 E , PE 0 (JEB , AFEj^EtiuEOSO 
I OUEOS.DUEOSN.opeDSN 

COMMON/CONST /SIN|T,*|NIT,XMAX,0ELTAI.SN|,SN2,Sn 3,EPSLN|,EPSLN2, 
I EPStN3,C0NVRG,n?DY*0«4DY,00YSQ 

COMMON/COUNT /ny,nyi,ny2,ny3,jo,jn,ja,mel;neli,nsp.nmax nyi 

COMMON/IOE8U6/IOERU6t3),KMODMP,KENOMP EU I , NSP , nM A X , N Y | 


evaluate coefficients of system of momentum equations (FROM FIRST 
Interior point to second last point in boundary later). 

INCRMT-O 

TmR.RHOINY , JA ) ‘U l NY . JA ) • ( UE06E-U ( NT , JO ) )/OS 
I«2 


calculate temporary quantities. 


100 BE ■ Ed) 

BF«F( I ) 

SIGK3) > SMU( |#l , JA)yEPS( dl ,JAI 

S|6IY>(SI6I (3)-Sl6l ( I > )«020Y 

UYMN*(U( !♦! . J0)-U( I«l , J o) )*020Y 

UVYMN>(U(|y| , J 0)>2.«U( I . J0)4U( I»l • JO) )*OOYSq 

TERM«BF*BGP( I )*sifi| ( 2) •OOYSQ 

TmI»BgPP( I ) •SIGI « 2 ) /BGP( I ) ♦BGP( I ) 'SIGI y 

TM2»RH0V( I )*BGP( I ) 

Tm3sRH0( I.JA)*U(I,JA)/DS 

cOEFF. Of U( M^l .N- I ) 

A( l-l ,1 )«0RDY«(BE«U( t • J0)-TM2*8 F«TM| )-o*S«TERM 
COEFF* OF U(M«|,N) 

*11-1 ,2)»TM3-o» 5*8E*UYMN*TERM 
cOEFF, OF U( MY I ,N, I ) 

A(I-l,3)«-A(I-|,n-TCRM 

rIGHT-HANO side 

8(I-|)»TM3«u(I , J0)-0»5»TM2»UYMnyTMRyO»5«BF*ITMI*UYHNy 
i B6P( I ) *SIG I ( 2) yUTYmN ) 


/YTaBLE/ 

/YTaBLE/ 


/EDQEBC/ 

/eogebc/ 
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nnrin n nn onn nnr> nnnno 


c 

C «USH«00»N STORAGE 
C 

S!6l‘»»*SIGl‘2» 

S|6| <2»*SIfil <3 > 

ir < t NYI » GO TO 100 

mOoify first ano Cast momentum equations by boundary conoitions 
AT NALL II • 0 

AT edge U ■ UE 


A( I t I 1*0* 

BINY2»«BINY2>-A<NY2,3)*UE06E 

A(NY2«3)«0* 


SOLVE MOMENTUM E0U*TI0NS FOR U<M*1,N1, N«2 « 3 . * . * , N Y* | 

CALL trim IA,UI2t JN) ,B|NV2,NMAX) 

*PRLY boundary conditions FOR U<M*|,|I «NO UfM«|^NYI 

U( I .JN)>0. 

U|NY, JNI.UEOSC 

PRINT DEBUG FOR TH|S ITERATION, IF REQUESTED* 
IFiKMODMP.GTtOl call 0UMP|T 

test ■ I UINYIiJN) -U I NY • JNII /U( NY • JN| 
IFIABSITESTl.LCtEpSLNllRETURN 

SOLUTION DOES NOT ASYMPTOTICALLY APPROACH EDGE CONDITIONS* 
INCREASE thickness OF BOUNDARY LAYER BY ADDING ONE POINT* 

INCRMT«INCRMT*| 

IFI INCRHT*6T.5»CAtL DEBUG lAHMOMNTMl 
IMNY,E0,NMAX)CALL debug iahmomntmi 
CALL ADOPT II) 

I-NYI-I 
GO TO 100 
END 
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SUBROUTINE NLOUT 

CNLOUt "RITE TRC9L InPUT 0*T*. 

C 

_COMMON/XTaBLE/R"T aB(SOO) tXTABRWfSOOt • LR"T aB * I R»XP , CR"X ( * ) , 
I PET AB (500) iXTABPEIBOO) •LPETABtlPExR,ePEX(A), 

? UETAB(5001, LUETaB,IUExP,CUEX(a) , 

3 XTOUOX(500I tLOUOXTt lOUOXP 

COMMON/LTABLE/TRTABdOO) .XTABTRI 1 00 ) 1 1 TWT AS , I T"«P , 


I SMOTAB(|O0>(XTAnNO(IOOl,LMOTABiINDXP 

C0MM0N/STEPS2/DXt|M(50 ) iXL1H<50I.LOXLIM,ioX, 

1 SKTaB(50» iXTaBSX(50) iLSicTAb; ISK, 

2 0*1 
common /EOGEBC 

I 


1 / * 1 

/ TEDGC,SHE06E .hedge ,UEoGE,PEOGEB,AFEOGE,OUEOSO, 
OUEOS.OUEOSN.OPEOSN 
COMMON/NORM AL/BLRfF.UREF I RMOREF.SMUREr. RET INF 
COMMON/mulT /XN.UEN.PEN.SMON.YN 

COMMON/CONST /SIN|T.XiNIT,XMAX,DELTAI ,SNI ,SN2.Sn3,EPSLNI .EPSLN2, 

i EPSlN3.C0NVR6,020Y,0B0T ,ooysq 

COMMON /TITLE/ TiTLEim 

Common /COUNT /NYtNYI.NY2.NY3.jO.JNtjA,MEL?NCLl(NSP.NM*X.NY| 
COMMON/OPTION/IOEAL.LAMNR, incomp 
COMMON/STATN /ISTaTN.MAXIT.ITER 

COMMON/PRNTcT/NSPrnT.NLPRNT, ISPRNT, ILPRNT.LNSPPb.LINESR 
COMMON /inprof/ UPR0F(50» . YBYnUIBO) .LUPROF.cUYXIA) .hPROFISO) . 

T Y8YNM(50» »LHPR0F|CHY*(A) 

^ A M li AM J r A (B 4 A li AJI A PmAI UIRP B B I 


C0MM0N/PF6AS 
C0MM0N/NER3 
COMMON/NERS 
C0MM0N/NEN7 
COMMON/NEWB 
COMMON/NEWT 
COMMON/NERIO 
COMMON/NEWI I 
COMMON 


I 


COMMON 

COMMON 


/gamma ,FM0L"T ,PR| 

/AFTrnS.PL AW 
/ I YPP 

/GPO.PAMB. INTOK.ZETAPI 
/RSTlR.RSTPR.XSTAR.nLSTO.OUSTTH 

/lYEO 

/APROFISO) ,YBYNA(50» ,LAPROF,IAYP,CaYX(a> .afwall 
/ j2n,UE*|RH0EK 

B(H,30» . IP 0 LY,|THFRM,MT(««, 30 J , NPrOO . NSPEC t 
PHAZ( 30) .T| ( 301 ,T2( 30) 


/INPUT/ 

/AL/ INSTAT^EPSLIN 


I 

? 

3 

5 

A 


real massl 

COMMON /OMORI/ CUU(250»3) » CUV (250. 3) .CVV(2SOi3) ,C«W*2So,3) .GAMA.ZK 


/COOL/ ALTaB(IOO|.CAX|A|.CCX(A| .COEFCL.CPL.CPlT 
CPSUME.CRXIaI .CTHX(A) .CTL*< a) .CZXIA) .del 
0X1 .H6«HL,lAX.|C00L.ICX,fPX,lTHX,iTL*dT 
MASSL. PRANOL. OWI. RAMBL. RAMOW. RAMTaB(20) '. MEXL.5NWQ5I 
.SUMOWI. TAW. TEMPRL, THICK. TH I Tab ( 1001 .TLO.TLI , 
.TLCA.TLTAB(IOO) .TUREN.TWG2.TW(;CAtT"L.rZTAB(2a) . 
TAB (20) .ZMYUL, ITP0S»TWL2,TA"M,5TANPE 


sowt 

TL2, 

ZMYl 


A8I20). 
OELXBA.OI ATUB. 
tztab.izx. 
REYL.SQWOSI • 


/ED6EBC/ 

/EOGEBC/ 


/title/ 


/INPROF/ 

/INPROF/ 


/Input/ 

/Input/ 

/al/ 

/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 

/OmORI/ 
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c 


DATA UNAME,PNAM€/6HUETAB ,6HPETAft / 


C «RITE SINSLT dimensioned VARlABLESt 

c 

WRITE (A|TOOO> title 

write IA.TOIO) I0EAL,LA>)NR, lNCOHR,J20,|MTOKtICOOL,lTHERM,IPOLY 

write (A, 9020) SINIT,XIN1T,XMAX,0XI,0ELTAI,2ETAPI 

WRITE IA»903O) SLREF ,UREP iRHOREF *SMUREP 

write 16. 9090) xn.tn.uen.pen.smdn 

WRITE IA.90SO) UFoSE .PEDfiEB , TED6E , AFE06E 

WRITE 16.9060) AFtRNS.PRI .gamma. FM0LWT,PLAW.PAMr.6P0,SN3. 

7 XSTAR. AFWALL.UEK.RMBEF 

WRITE 16.9070) COnVRG.EPSLNI .EPSLN 2 ,EPSI.N 3 ,ePSL|N 
WRITE (6.9060) MAxIT.NTI .NLPRnT.NSPRNT.INSTaT.IyPR.ITEO 
WRITE (6.6) GAMA.ZK 

6 FORMAT ( IX. IBHCORrELATIQN I NPUTS//SX .6HGANA ■ .F | O.W; S X . RHZK ■. 
7 FI0«6//) 

IF (ICOOL »E0» 0) GO TO 90 

write (6.D CoEFCu.MASSL.RAMOW.TUBEN 


I FORMAT (26H REGENERATIVE COOLING I NPUTS/ /4 X . BHCOEFGL •.FI2.B.I0X. 
t ThMaSSL aiFl2.6. I0X.7HRAMDW . . F I 3 « 1 0 . I OX , 7HTUBEN «.Fl0.3/) 

WRITE (6.2) I TZr AR • ( I .T2 Tab( I ) .CRLTAB( I ) .RARTAB( I ) .ZMVTaB( I ) t 
7 I ■ I.IT2T*B) 

Z ^format (|H|///26H coolant PROPERTIES TaBLES//4,sX , eHI T2 T aB •.Ij// 

1 ISX. iHt .9 X.ShTZTabi I I X • *HCFL T aB • > . 6hR Al*T aB • I 3X . OhZNT T AB^ 

2 ( I9X. I2.SX.0PFI0.9.SX.FI3. lO.SX. IPCI9.6.SX.EI9.8) ) 

WRITE (6.3) lTWTAb 

3 FORMAT (|H|,2qH COOLANT wall T ABLES//99X . ^HLTWT aB • . I 9// ISX . (H I , 

7 I IX .SHALTABi I 2X .6HTHITAB . I 2 X . SHTt T AB / ) 

LINESR p LNSPPG - 8 
Do 30 I ■ I. LTWTAB 

write (A, 9) I .ALTaB( I ) iTN|TAB( I ) .TLTAB( I ) 

9 FORMAT ( I 3X( I3.BX , |PEI 3.7 ,SX ,CI 3.7.SX ,OPFt I .9 I 
LINESR ■ LINESR - I 

IF (LINESR .GT. 0 .OR. I .EQ« LTWTAB) GO TO 30 
WRITE (A.S) 

5 FORMAT (IHI/ISX.ImI.I |X.SHALTAB.( 2X,6HTHItAB.|2|.SHTLTAB/) 

LINESR ■ LNSPPG - 5 
3o CONTINUE 
C 

C pRiTE STEPSIZE CONTROL TjkBLES, 

C 
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u W U KJ KJ \J 


«I0 WHITE (A •9000) 

WHITE («,9090) LOXLIHiLSKTAB 
WHITE U.9I00) 

LMAX«MAXO(tOXLIM,LSKTAB) 

WHITE U|9||0) DXlIMI I I •XUH( I I t9KTAB( I ) •XTABSKC I I 

IF lUMAX tLE* I) 60 TO )I0 

00 100 t ■ ZtLHAX 

IF( I*GT«LDXLIM)8n TO BO 

IFI I •GT,lSKTAB)60 TO 90 

WHITE (B|9||0) 0XLIM( I ) ,XLIM( I) (SKTABl n ,xTABSK( I > 

60 TO too 

80 WHITE (8.9120) SKT AB ( I ) • X T ABSK ( I ) 

60 TO 100 

90 WHITE (8|9||0) OXl |M( ) ) . XLIM( I ) 

100 Continue 

WRITE WALL TABLES* 

no WRITE (A»9000) 

write (8.9I30) LTwTAB.LNOTAB 
write (8,9I<40) 

LINESR-LNSPP6-8 

LMAX»HAX0(LTWTAB,UM0TAB) 

white 18,9110) TWTAB ( I ) . XTABTWI I ) ,SHOtAB( t ) ,XTABNDI I ) 

LINESR-LINESH-I 

IF ILHAX *LE* I) 60 TO 2)0 

DO 200 I ■ 2iLMAX 

IF( I .GT.LTWTABIGO to 180 

IF(| *GT*LMOTAB)GO TO 170 

WHITE (8,9110) TWtaB( I ) • XTABTW( I ) ,SM0TAB( I ) »XTABMD( I ) 

60 TO 180 

180 WRITE (8,9120) SMoT A R ( I) , XT ARNO ( I ) 

60 TO 180 

170 WHITE (8,91101 TWtAB( 1 ) .XTABTWI I I 
IBO LINESR-L INESR-1 

IF( (LINESR.GT.O) .OR* ( t •CQ.LMAX ) )60 TO 200 

write (8,9000) 

WHITE (8,9|<«0) 

L INESR«LNSPP6-5 
200 CONTINUE 

WHITE 6E0NETRT ANO EDGE TABLES* 

210 WHITE (8,9000) 

» THc TEST FOR EOUALlTy BETWEEN NON-INTEGERS MAY NOT BE MEANINGFUL* 
IF(PETAB( I ) *NE*0* )G0 TO 220 
white (8.9IS0) LRwTABiLUETAB 
TABNAMwUNAME 
60 TO 230 

220 WHITE (8,9180) LRWT AB .LPETAB 
TABNANwPNAME 
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2S0 «H»ITe («t9t70) TABNAM 
UNCSH»tNSPP6-fl 

tPUMAXaMAXO(LPETAB (lUETAB » 
LMAX«MAXimP«TAB|LPUMAX ) 


THe 


TABVAL«PETA8( n „ 

test pop equality between non-integeps mat not be 


IP I PET AB I n.CQ.Ot >TABVAL«UETABI I > 

PPITE 14,91101 PWTABI n iXTABPWm ,TABVALi 


XT, aor <11 


LINESR«LINESP-1 

IF ILMAX ,LE« I> so to 310 

00 300 I ■ 2iLNAX 

TABVAL-PETA8I I ) . ^ 

the test pop FQUALITy between non-integeps mat MOT BE 

IP (PETA6 ( I > .EQ*0* ) TABVAL-UETAB 1 I I 
|FI I .GT.LPWTAB 160 TO 260 
IPI|»GT,LPUMAX)60 TO 270 

write (6,9|tOI RWT AB ( I ) , X T AflPW ( I 1 , T ABV AL » XT ABPE 1 I I 
GO TO 280 

260 WRITE 16,9120) T A B V AL , X T ABPE I I ) 

60 TO 280 

270 WRITE 16,9110) RWTABI I ) .XTABPWI I ) 

280 LINESR-LINESR-I 

IPHLINESP,6T,0) ,0R, ( I »E0,LMAX 1 )G0 TO 300 

WRITE (6,9000) 

WRITE (6,9|70) TABNAM 


LINESRaLNSPPG-5 
300 CONTINUE 


C WpITE EXPERIMENTAL PROFILES, IP INPUT, 

^310 IP ILUPPOP .EQ, -LHPROF) RETURN 
WRITE (6,9000) 

WRITE (6,9180) LUPROP , LHPROF 
WRITE (6,9190) 

LMAX«MAXO(LUPROP , LHPROP I 

WRITE (6,9110) UPROPI 1 ) ,TBTNUC I ) ,HPR0P( 1 ) ,TBTNH| 1 I 

IP (UMAX »LE, l) GO TO « 1 0 

DO 900 I " 2,LMAX 

|P( I »6T, LUPROP )G0 TO 360 

IPI I »6T»LHPR0P )60 TO 370 


WRITE (6,9110) UPROPI 1 ) ,TBYNU( 1 ) ,HPROe( I ) ,T8TNH( I ) 
GO TO 900 

360 WR|Te (6,9|20) hPROP* 1 » tTBYNH< I ) 

60 TO pQQ 

370 WRITE (**Tll0) UPROPI 1 ) *TbTNU( I ) 

900 CONTINUE 

910 IP ILAPPOF »EQ» 0) return 
write (6,9000) 

WRITE (6,9200) LAPROP 
WPITE (6,9210) 

Do 9S0 (•ItlAPROP 

980 write (6, 9110) APrOP I 1 ) , TBTNA ( I ) 

RETURN 


meaningful. 


meaningful* 
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9009 format (IHI i2&Xi I3A6//> 

9oiO format II 8 H flags and OPTl0NS//30Xi8H|0eAL ■ *I2t8x; 

7 S8 H<«| FOR perfect GAS, •0 FOR HYDROGEN-OXYGEN EQU f L « 8R I UM ) / 30X , 

2 RHLAMNR ■ • I2,8X ,39H(«I FOR LAMINAR FLOW, *0 FqR TURBULENT )/ 30X , 

3 8H|NC0 MP« , I2»AX,38m(«! FOR INCOMPRESSIBLE FlOW, »0 FOR , 

^ I3HC0MPRESSIBLE)/30X,AHJ2D ■ ,I2,*X,2IH(«I FOR AXtSYMMETRiC , 
s 33HGE0METRY, »0 FOR TWO-0 1 MENS I ORAL I /30X ; 8H I NToX • ,12, AX, 

A 5ShIb| if input TABLES COME FROM TDK OUTPUT, aQ OThERW I SE I /30X , 

7 8HIC00L • ,l2,AX,57HlaO NO COOLING, >| OPPOSITE DIRECTION, *2 SAM 
rE 0|RECTI0N)/30X,BHITHERM ■,I2,AX,S2H(a| FOR STmERHP NAMELIST INPU 

PT to ODE, «0 OThEpWISC»/30X,8hIPOLV •, I2,A8,77m(-1 FOR CALCULATIO 
«N OF COEFFICIENTS FOR CORRECTFO WALL CONTOUR, *0 OTHERWISE)//! 

9020 format I3NH PROBLEM LIMIT? ANO INITIAL V ALUES/ / 1 X , 7HS I N I T >,FI2*8, 

1 3X,7hX|NIT a,FI2,8,3X,AHXMAX > , F | 3 • 8 , 3 X ,SHOX I ■ , I PE I 2 . A , 3 X , 

? BHOELTAI ■,E12.A,3*,«H2ETAPI ■,EI2.A//| 

9030 format I2|H reference OU ANT I T I ES//1 X , 7HBLREF ■ , I PE I N • 7 , N X , 

7 AHUREF ■,EIN.7,«»X,8hRH0REF ■ , E I ** . 7 , *»X , ShSMOREF ■,£!<♦. 7//) 

90p0 FORMAT I28H INPUT NORM At I 7 AT I ON F ACTORS / /«X , 7HXN a , I PE I H . 7 , HX , 

7 7HYN a,EM»7,«*X,7HUEN a , £ I • 7 , 9 X , 7HPEN a , E I 9 , 7 , 9 X , 

2 7HSM0N a,EI9»7//) 

9050 format (|AH edge (JUANT I T IES// 9 X ,7HUE0gE a,|PE|9,7,98,7HPED6E •» 

7 EI9»7,9X,7HTE0GE a , e 1 9 . 7 ,9X , 8H AFEOGE a, £19,7//) 

90A0 format ?I0h C0NSTAnTS//4X,8hAFTRNS a , | f£ | 2 . A , 3 X , ShPR | a,E|2,A,3X, 

7 7HGAMMA a,El2.A,3X,BHFM0LWT a , E I 2 * A , 3X , AHPLAW a,El2,A,3X, 

2 7HPAMB a,Ei2.8/|X,8HGP0 a , £ | 2 . A , 3 X , ShSN 3 a;£|2,A,3X, 

3 7HXSTAR a,E12,A,3X,8HAFWiLL a ,£ | 2 , A , 3X , AhUEK a,Cl2,A,3X, 

« 7HRH0EK a, £12, A//) 

9070 format I30H convergence AND EDGE CR I T£R I A//9X , 7HC0NVRGa , | P£ 1 9 , 7 , 

7 9X,7HCPSLN|a,£|9,7,9X,7HCPSLN2a,E|9,7,9X,7HCPSLN3a,EI9.7,9X, 

2 7HEPSLINa,E|9,7//) 

90*0 format I9h C0UNTERS//9X ,7hMAXIT a , i R ,Sx ,5hNY I a , | r ,S X , 8HNLPRNT a, 

7 t9,SX,8HNSPRNT a, iR,SX, 8 h|NSTAT ■ , I 9 ,SX , AH I TpR a , i r , 5 x , AH 1 YEQ ■, 

7 I9//I 

9090 FORMAT (29H STEPSiZE CONTROL T ABLES/ /2SX , THLDXL I Na , i R , 3 r X , 

7 THLSKTABa, IR) 

9|oO format (|5X,AhDXLIM ,|9X,AhXLIM ,|9X,AHSKTAB , | 9X , |hX T ABSK / > 

9110 format I1P9E25«7) 

9120 FORMAT (SOX, 1P2E2S,7) 

9130 format (12H Wall TABLES//25X,7HLTWTABa,lR,39X,7HLM0TABa,|R) 

9|r0 Format ( 1 SX,AhTWTaB .l9x,AHXTAaTW.19X,AHSM0TAB,l9X,AHXTABM0/) 

9150 format (25H geometry ANO EDGE T ABLES/ /25X , 7HLRWT ABa , 1 R , 39X , 

7 7HLUETAB» , I 9 ) 

9|A0 format (25H GEOMETRY AND EOGE T ABLES//2SX ,7hLRWTAB9 , | 9 , 39X , 

7 7HLPETABa,lR) 

9170 format (15X,AHRWTaB , 1 9X 7 AHX T ABRW , 1 9 X , a A , 1 9 X , AHx T ABPE/ I 
9180 format I22H EXPERIMENTAL PROP 1 LES//25X , 7HLUPR0Fa , 1 9 ^ 39x , 

7 THLMPROFa, IR) 

9190 format (ISX.AhUPRoF ,|9X,AHTBYNU ,|9X,AHHPR0F ,|9X,iHT8YNH /) 

9200 format (39H EXPERIMENTAL PROFILES I COnT 1 NUEO » // 25X , 7HL APROFa , I 9 ) 
92io Format (isx,ahaprof ,i9x,aht8yna /) 

End 
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SUBllOuTtNE ooe 

CODE ICRP6 RCreRENcE PROGRAM (OOE) MOOlPIEU TO MaNOUE EQUILIBRIUM 

C chemistry in the turbulent BOUNOARY layer program ano to 

c operate in a subroutine MOOE. 

COMMON /input/ B ( M t 30 ) » I MOLY » I therm fMTI N »30 ) »NPrOO iNSPEC • 

7 PHaZ(30) .T1 (30) .T2(30) 

COMMON /POINTS/ MSUH ( I 3 ) , SSUM ( 1 3 ) , CPR ( I 3 ) , OL YTP ( I 3 ) * OL VPT ( I 3 ) , 

7 GaMMAS(|3),P( I 3) ,T,PPP( 13) .«M( I 3 ) fSONVEL M 3 ) • 

2 TTT(I3) 

CommON/SPECES/COEf (2.7i30) iS(30) . EN ( 30 1 i 3 > • CNLN ( 30 ) t HQ ( 30 ) , 

7 0ELN(30) iA( (S.30) , 5U8 ( 30 . 3 ) , I USE ( 3O ) , TEMP (50,2) 

COMMON /MISC/ ENN,SUMN,TT,S0 t ATOM( 3, 105) .LLMTI IB) ,iO( 15) , 

7 BOP( 15,2) ,TM,TL0R,TMID,TMIGH,PP,CpSUm7oF,EQRAT, 

2 HSUbO,HPP(2) ,RH0(2) ,VMIn(2) ,VPLS(2) ,RP(2) , 

3 NAM£( 15,5) , ANUM( 15,5) ,PECRT( IS) ,EnTH( 15) ,PAZ( |5) , 

• RTEmP( 15) ,FOX( 15) ,OENS( 15) ,TLN 

COMMON /INOX/ C0Nv6,TP,HP,SP,M0LFS,NP,NPT,L,NS,ICNaTHM*T,IQI ,NC, 
7 JSOl, JLIQ, 1C, IQ2 

c 

01 mens I ON 0AT£(2,30>,LH(2),LVM(2),LVP(2) 
integer blank, faz , fox ,phaz , sub 

Data blank, lh,lvm,lvp/ih ,hhh,ca ,hhl/g , 2 mv«,ih , 2 ht»,ih / 
equivalence (DATE,EN) 
logical MP,IC,M0LFS,SP,TP 

c 

namelist /Thermo/ anum,b,coef,oate,oens,eQTh, faz, fox, moles, mT, 

7 NAMC,N8PEC,NPR00,PEC»T,PHAZ,RTEMP7SU$,TI ,T2, 

2 TL0R,TMI0,ThIGM 

c 

C PRESET VARIABLES TO THEIR INITIAL VALUES. 

c 

TLOW ■ 0*0 
T • 0*0 
Oo 2 I - 1,13 
2 P( I ) ■ 0.0 

HP ■•FALSE. 

TP ■.FALSE. 

NP ■ I 
OF ■ 0.0 
EqRAT ■ 0.0 
moles ■ .FALSE. 

WRITE (5,260) 

IF (ITHERM .NE. 0) REAO (5, THERMO) 

IF (ITHERM .NE. 0) WRITE (6, THERMO) 

CALL REACT 
SP-. FALSE. 

C 

c calculations INVOLVING equivalence Ratio changeo ( 7 *io«as) to 

C CORRESPONO TO OEF|Q|T|ON USED IN PROGRAM a23S00* H.M.FREY. 

C 

STOIC • ABS( (VPLS( I )*VMIN( I ) )/( VPLSI2)*VMiN(2) ) ) 

THE TEST FOR EQUALITY BETWEEN NON-InTEGERS M*Y NOT BE MEANINGFUL. 

IF (WP(2) .NE.O. ) OF»WP( I )/WP(2) 

WP( I ) ■ OF 

WP(2)m| . 


A to 

/INPUT/ 

/Input/ 

/POINTS/ 

/POINTS/ 

/POINTS/ 


/MiSC/ 
/MiSC/ 
/MISC/ 
/MiSC/ 
/MISC/ 
/ iNOX/ 
/INDX/ 
A 33 


A 39 


A 60 
A IIS 


A 157 
A 159 
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SUM«WP» I »4id(P«2> A l&O 

V2s(WP( I (•VHINI I )«NP(2)*VMIN(2n/SUH A 163 

vixwpi n*vpts< I >*wp< 2 >«vPLS(?n/suH a ia** 

Eor*t • l•o/oP/sTnIC 
00 200 t ■ I ,L 

200 B0*|* ■ * Pp < I • •gOp < I • I * * PP • 2 • •pOp • f » 2 > • 7 suH 

ThP test FqP equality SETPECn NON-fNTEstRS MAY NOT BE MEANINGFUL* 

IF (EOPAT,EQ,| . I CQPAT>| «00000s A |G9 

HSUBO • (NP(M*HPP(|t ♦ PP«2)*HPP<2n/SUM 

WRITE (6|37Q) A |76 

WRITE <6i380I LH , hPP I 2 » t HPP M » t HSUBO tLVP , VPLS < 2 ) * VPlS » I > » V | ,L VM , VM A |77 

? IN(2) tVMINI I) ,V2 A 178 

HSUBO « HSUB0/I«9b7I650 

write (6«390> a 180 

WRITE 16,380) <LLmT( I ) ,BLANK,BOP< I ,2) ,BOP( I , I ) ,B0( I ) , I«| ,L) * I8| 

CALL SEARCH 

IOI>L«l « IBS 

IF (NC*E0,0) 60 To 2S0 A 186 

OO 230 J»l ,NS A 187 

IF f lUSEIJ) .EOtO) 60 TO 230 A |88 

IF I lUSEf J)*6T.0> lUSEt J)>-IUSE( J) A |89 

230 CONTINUE A 19? 

290 IC ■ *F«lSE. 

PP»NS A 203 

NPT»| A 209 

ENN«*I a 20S 

SUMNaENN A 206 

OO 250 Ja| ,NS A 210 

IF t lUSEI J)*EO*-loOOO> lUSEIJIaO A 2|| 

ENIJ,l)aO« A 212 

ENLNlJIag. A 213 

IP I lUSEt jl «NE*0> GO TO 250 A 219 

EN(J,|) a ENN/INS • NO 
ENLNIJ) a AL06(EN( J, I I I 

250 CONTINUE A 217 

JSOLao A 218 

JLIOaO A 219 

RETURN 

260 format (IHl) A 226 

37o format I IHO, 17X ,9hFUEL • 1 3X ,7hOX IOANT, 12* ,7HM1XTuRE// ) A 237 

380 FORMAT ( |H 2A9,3E|8.8/) A 238 

390 format rWH ATOMS/O A 239 

ENO A 290- 
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I 


subroutine RtRAMS 

CRARAmS calculate gross BOUNOaRT layer parameters Of interest* 

c 

COHMON/OCPCNO/U(25J*3) iHl2S0»3> * ALPH A ( 2S0i 3 * 2 > i RHOV ( 2SQ ) »SHI2S0*3 
Common/ I NOEP /s*nsiX|0X|Y(2Soi lOr 

COMMON/PROP /RH0(2S0*3) iSMlJI 2SO,3 ) ,Pr( 2S0*3> *BLC(tSO*3l • 


C 


i SHM2S0,2*«) I SC I (2SO*2*Gt »TI2SO*3l *AT(2SO» 

COMMON /YTABlE/ YtiL«250» iB 6P<250) ,B6PP<2S0»tIYTILPilYTILF* 

I* CrTiLU) 

COMMON/ XT able /RRTaB(SOO) iXTABRNISOOI (LRWTaB* IRNXP.CRNXI a) , 

1 PETaBISOO) iXTABPE(SOO) •LP eTAB*lP£vP*CPEX(A> , 

2 UETaB(SOO>i LUETaB»IUExP,CUEXIA>, 

3 XT0U0X(500> .LOUOXT, lOUOXP 
COMMON/L table/ TRTaBI 1 00 ) i X T A B TR ( 1 00 » *LTWTaB . I TWxP , 

i SMOTABMOO) *XTABM0» I00» ,LM0T AB . 1 Mf»XP 

COMMON/EFVEC /£ « 2S0 » i F I 2B0 ) 

C0MM0N/6E0M /RW(2) •DRW0X(2) ,THW(2I 

COMMON /7CALC/ 2CT A 0 , ZE T A , zE T AN , ZE T AP , zST aR » 3 I , OSZ C 2 » . VZET A , 

7 YTzETA.YEDGE 

COMMON/WALLBC/TPAULfSHRALL tHWALL iSMOWO.SMoW.SMOWN 
common /FOGEBC/ TEDGEtSHE0GE,HE06E,OEOGEiPE0GE8 * AFEOGE.oUEOSO, 

I OUEOS.DUEOSN.OPEBSN 

COMMON/NORMAL/BLReF.UREF iRHOREFiSMUREFiREYINF 
COMMON /GPaRAM/ BlSTAR. theta ,TaU*,TaUi ,mcf.SQR,sTaN»SNTGRL. 

7 SoRDSiSQWO 

COMMON/CONST /S I N I T , X I N I T , X M A X , DEL T A I , SN i ; SR2 , Sn3 , EPSLN 1 , EPSLN2 , 
7 EPSLN3,CONVRG*02DY,OHDY,oOYSO 

COMMON/COUNT /NY.nY! i N Y 2 , N Y 3 , JO , JN i JA , NEL , NEL 1 * NSP , NM AX , NY I 
COMMON/STaTN /ISTaTN.HAXIT, iter 
C0MM0N/NEW8 /RSTaR.RSTPR, XSTaR .OLSTO.OLS tTH 
COMMON/NEWII /J20,UEX ,RHOE(( 

COMMON/RSTART/ I RSRO . IRSRR, ITAPE 


_COMMON /MISC/ 

7 

2 

3 

«* 

COMMON /COOL/ 

7 

2 

3 

•I 

5 

A 

REAL MASSL 


ENN.SUHN.TT.SO. AT0H(3, tost .LLMTI IS) ,001 IS> . 

BOP I 15,2) ,Tm,TLOR,TMIO,THIGH,PP,CpSUM,OF,EQRAT, 
HSUbO,HPPI2) ,RHP(2) ,VMIn(2) ,VPLS(2) ,«P(2) , 

NAMfi 15,5 ) ,aNUM( 15,5) ,PECWTI 15) ,EnTH( |5) ,FAZ( |S) , 
RTEmPI 15) ,FOX ( 15) ,BENSM5) ,TLN 
ALTAB(l 00 >,CAX(«),rcX(A),C 0 EFCL,CPL,CPLTABl 20 ), 

CPSUME,CRXU) ,CTHX<6),CTLXU)*CZXfA) , OELXBA , 0 I ATUB , 
0 X 1 ,HG,HL, I AX, tcOOL, ICX, IRX, ITMX , I TLX » | TZTAB * I ZX , 
MASSL,PRAN0L,0»I ,RAM0L*RAM0 M,RAMTaB(20) ,reyl »S0RDS I 
SON! ,SUMQWl ,TAR,TEMPRL, THICK, TM IT aB( 100) ,TLO,TLI , 
TL2.TlCA,TLTARI 1001 ,TU8cn,TH*G2,TR(;CA,TWL,TZTABC20) , 
ZMYtaB(20) ,ZMYUL, ITP0S,TWL2,TaRM,5TANRE 


/ytable/ 

/YTaBLE/ 


/zcalc/ 

/zcalc/ 

/ED6EBC/ 

/eogebc/ 

/GPaRAM/ 

/GPaRAM/ 


/MiSC/ 

/MISC/ 

/MISC/ 

/MISC/ 

/MISC/ 

/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 
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o r> rfc rk non 


OaT« PICiRJ.SG/S* |4IS926S3i777*A800A»3?« I YH/ 

OINCNStON 6RN0(3) .YGRNOOl 
C 

0RE0SN»-RH0( NY , JN ) *U ( NY , JN ) *OUEOSN 
C 

C UPDATE tNTESRAt OVER S POR OIRPLACEMENT THICRNCS^. 

c 

IP( ( |RSRn*GT«0> • AND* ( ISTATN.EQ* |RSRD> )60 TO SO 
IFHSTATN.6T*0)60 to 20 

SnT6RL«0* 

GO TO SO 

20 SNTGRL ■ SNTGRL ♦ 0*SO*05* < 5Nf)WO*ZETAO*RW( I I •• J2D * SMoRN»ZETaN* 
1 R«H2)**J20) 

C 

C iCCUMULATF integrals OVER Y USING SIMPSON INTEGRaTIGN, 

C FIRST EVALUATE INTEGRANDS AT RALL. 

C 


So T| • RHOC NY , JN) »U » NY , JN ) 

TMl«RHOf I »JN)»UI I , JN)/T! 

YgRnOI |)*(|*-TM|)/8gP<|) 

YGRN0l2l«TM|/B6PI i ) • ( | , -U ( , , JN » /U ( NY , JN n 
TM2al*/(ZETAN*ZET«N*REYINE) 

Do 70 !•! »NY 

EC I )»RHO( I , JN)*B6P( I )«ZFT*P«YTILC I I/ZETAN 
To ECU. BGPC I ) •TM2 

OUOYaOZOY^C-UOiJNl^S.^UCZ.JNI^S.-UI I ,JN) J 

YGRNO Ota(RHOVI|)*BGP(|)*OUOY*OPEOSN)/E<|| 

ACCUMULATE integrals ACROSS BOUNDARY LAYER. 

DO 100 I« 2 ,NY 1 

Tm|sRhOC I >JN)*UI I I JN)/Tl 

GRNDC I )■( I *-TM| »/BGP( I) 

GRNDI 2) >TM| /BGP II)*(|.>U(I,JNI/U(NY,Jn)I 
DUOSafUf I , JN)-ur I , JOn / OS 
OuOYaOZD Y* (U(l»lijN)-U(I*||JN)) 

GRNDC JCaCRHOC I , JN) iUC I , JN ) •DUOS* C RHOV C I ) «BGPC I ) -U C I , JN ) *E C I ) ) • 

? OUOY^OPEOSN ) /F C I) 

IF II .6E. N» I ) GO TO 110 
FmULT ■ FLOATCN - 2*M00C!,2)) 

DO 100 F • I i 3 

100 YGRNOIKI ■ YGRNDClO * FMUL T»GRNO I K ) 

iF NYI IS EVEN, complete SIMPSON INTEGRATION. OTHERWISE, INTEGRATE 

Last step using trapezoidal rule. 
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n o 


llo ir .6T. 0» 60 TO 130 

On |?«1 K « 1,3 

I TGRNtMKl a (Y6RNP(K1 ♦ H , C • 6R NO ( K ) I • 0 Y / 3 • 0 
60 TO 1^0 
130 on 135 <-| ,3 

135 YfiRNO(K) ■ (YSRNOJK* ♦ 6*ND < < > ) • 0 Y/ 3 • 0 ♦ 0 » 50*0 Y • GHnO ( K » 

C 

C rV»UU*TE INTE6RAN0S *T NY AND COMPLETE EVACUATIOm OE INTE6RAL 
C PROPERTIES. (6RN0(I> »N0 QRN0<2» ARE 7ER0.J 

C 

ISO DUOS a (U(NY,JN» . U(NY,JOJ)/OS 

OUOY«020Ya(IJ(NY2,jN»-*t.«U<NY| , JN » ♦S ♦ •!) ( N Y , JN 
6RN0«3)a(RH0(NY , JN)«U«NY, JN)•0U0S♦^RH0V^NY»♦B6P^NY»- 
j 1)(NY,JN)*PINYI)*DU0Y*0PE0SN»/P<NY) 

If IMOO(NY,2» .l.E, 0> 60 TO 170 

YGRNfM3* a T6RN0(3> * 6RN0 < 3 » ‘OY /3 .0 
60 TO 200 

170 Y6RNO<3»«Y6RNO(3)*0.6»OY»GRNn«3) 

C 

C nISPL*CENENT THICKNESS. 

C 

200 OLSTO a OLSTAR 

TERH»RH0<NY,JAI»UINY,jA)*(0.S««RRin*R«M2)»t**J20 
OtSTARaflLREF*(ZFTANaYGRNOI I » ♦SNT6RL/TCRM » 

IFI IXSTAR.lt. IX-nx n .OR. I XSTAR.6T. XI »G0 TO 220 
C 

c tE throat mas been reacheo, calculate throat Radius corrected for 

C OISPLACEHENT THICKNESS. 

C 

OLSTTHaoLSTAR-I X-XST aR) • IOLSTaR-OLSTOJ/ox 

Call XnTERP IXSTAp,RSTAR,DER,lRI«XP,XTAeRR,RRTA8;LR»TAB,CR«»X, 

i irwxf) 

THNTHaATANIOERI 

RSTPR«RSTAR*BlREF-0L5TTh«C0S(TH»TmI 

C 

C momentum THICKNESS. 

c 

220 theta a BLREFa2ETANPY6RN0(2) 

C 

C sFIN FRICTION. 

C 

TAUI«-SHUREF*UREFaY6RN0( 3) / iBLREFaZeTANI 
C 

C CALCULATE WALL SHEAR STRESS TAUW. 

C 

OERIVa02nY«<-Ul3.jN|pRt*UI2. JNI-3.PUI I ,JNn 
TM|aB6Pf II/2ETAN»SHUII , JN)*0ERIV 
TAUWaSMURCFaliREF/BLREF*TH| 

local shear stress coefficient BCF. 

c 

BCFp2./REYINF»TH|/|RH0INY, jN)ao(NV,JN)aa2) 
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r> o o n r\ r% rvno 


mE*T transfer rate sow. 

0ERIV»0?0Y««-SH(3, JN)*R.»SM{2,JN>-3,*SH< I ,J»U» 

50HSR>0. 

Oo 2*»0 ISP"I INSP 

2*»0 SUMSP ■ SUMSP ♦ ShM I . JN, ISPJ»02OY*»*»,0*ScH2. JM. ISP) - 3,0« 
T scut, JN, ISP) - sc H 3, JN, TSP) ) 

OERtV«OERI V*(0LE( I .JN )-!.)• SUMSP 
TM|«B6P» 1 )/2ETAN»SMU«I i JN ) / PR ( | , JN ) «OeR I V 
SOW»SMUREF«UREF»HrEF/BLRCF*TMI 

«;TAN^0N number STAn. 

TM2-RH0CNY . JN) •U(NYtJN)*(H(NY,JN)«H(l,JNI) 

STAN-TMI / (REYINF*tM2) 

UPDATE integral OF SOW OVER S, 

IFH IRSROtGT.O) »ANO»( tST*TN.F0.1RSRO> )GO TO 280 
IFI ISTATN.GT.O) 60 TO 2?0 
S0WDS>0. 

GO TO 280 

27p SOWOS ■ SQWoS ♦- « 2 . 0»P I E > • • J20»BLREF** ( J2o* I ) *0. 50*r»S« ( SQWQ • 
] RWI|)*«J20 ♦ SOW«RR f J20 ) 

280 SOWO • SOW 

IF nCOOL .EO. 0) RETURN 
TTSAVE • TT 
CPSAVE • CPSUM 

C •• CPHS CONSIDERS TEMPERATURE IN OEG-F ••• 

TT • TINY, JN) / I .Rt 
CALU CPHS 

C •• CPSUME •••• I RTu/LBM*OEG-R ) 


CPSUME • 1 .9B7920‘*312*CPSIIM 
CPSUM ■ CPSAVE 
TT • TTSAVE 

c •• adiabatic Wall temperature taw (oeg-R) ,,,, 

_TaW ■ TInYiJN) ♦ PRINT, jM|**(|.0/3.0)*0iS0*(U(NV,JNi*l)REF)**2' 
I I CRSUME*R J»SG ) 

c •• RHOREF •••• ( lRf*SEC2/FTM ) •••• 

c •• S6 gravitional Force ilbm/lrf^ft/secji 

AAKK ■ RHOINY, JN)*RHOREF«SG»U(NY, JNJ«UREF 
C •• AAKK •••• (LBM/pT3»FT/SEC) •••• 

C •• SOW •••• ( FT*LBf/FT2«SEC ) •••• 

SOWI • SOW/RJ 

c •• SOWI •••• I (FT«lBF/FT2»SEC)/(FT*LRF/bTU» a (BTU/IFT2»SEC) ) I 
STANRE ■ SOW! / I CPSUME* AAKK* I TAR - TWAcl)) 

C a* HG **•* IBTU/(oE6-R*FT2*SEC) ) 

H6 ■ SOWI/ITAW - TWALL) 
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CALL XNTCRP «X,FAREA.EP|lAX,XTABT*(,ALTABfLTWTAB,CAXilT»(XPj 
OtATUB • 2.0«SOPT(EARC»/PIE» 

CALL XNTERP ( X , T L| , TP , I T L X , X T A B T* , TLT aB , LTWT A 6 , C TL I j J TWX P I 
IF (X - OX ,SEt XjNIT) go to 5 
TLO • TLI 
GO TO A 

5 call XNTFRPIX-DX,TLOiTP,1TLX,XTABTI*,TlTAB;lT*(TA8,CTL*iIT«IXP) 

A IF IX ♦ ox .LT, XmAX) - go to a 
TL2 ■ TUI 
60 TO 9 

8 CALL XNTERP IX*DX,TL2,TPi!TLX,XTARTBtTLTABtLTPTAB,GTLX,lTPXP» 

9 Call XNTERP ITLI .ZMYUL»7PtlZX,TZTAB,ZMYTAB,lTZTAB,C2X,lTP0SJ 
ITPOS ■ IZX 

Call XNTERP I TLI iCPL .CPP t ICX .TZTABtCPLTAB, ITZTAOiCex , ITPOSI 
CALL XNTERP (TLI iRAnOLiRPi |RX,TZTAB,RAMTAB,ITZTaB,CPX, ITPOS) 
PRANDL • CPL»ZMYUL/R*B0L 
reyl • MASSL*oi atub/<zmyul*tiiben»eareai 

CALL XNTERP I X,TH|CK iTHP, ITHX , XTABTW.T h1TAB,LT«ITAB,CTHX, ITRXP) 

TBL • TLI 
7 TPL6 • TRL 

HL • 0»0250*R AMDL/D I ATUB»REYL*»0«80*PRAN0L»*0.**0* (TLI/TPL)*«0»5S0 
SAI • HL*(l*0 * RAHDW/(TN|CF»HG) ) 

SA2 • RAMOR/THICF 

TWL ■ ISAIATLI ♦ SA2*TAW)/ISAI ♦ SA2) 

IF (ABSITRLG « TWi.> *6T. OiOlO) GO Tq 7 
TEMPRL • TWL/TLI 

TWGCA • IHGaTaR ♦ RAMDW/THICX»TWL)/IH6 ♦ RAMDW/THICF) 

OWI ■ H6»ITAW - TwGC*) 

SOWDSI • SQWOS/RJ 
TaWM • TRALL ♦ S0RI/H6 
OELXBA • lOX ♦ OX I ) •BLREF/2,0 
COSAL • COSITHRIZ)) 

SST • COEFCL»OELXbA*OR|» (P|E*RR(2)*BLREF)**j20/C0SAL 
TLCA • ITLI ♦ TL7)/2.0 ♦ SST / | CPL •MASSL I 

IF (ICOOL .EO. 2) TLCA • I TLO ♦ TL|l/2.0 ♦ SST/ I CPL*MaSSL I 

SUHORI ■ SUMORt ♦ SST«2*0 

Trg2 • (TR6CA ♦ TwALL)/2»0 

TwL2 ■ (TLCA ♦ TL 1 )/2.0 

return 

END 
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SUBROUTINE PHOENX (V,Y,NN,lLI 

CPHOEN* INTERPOL4TE VS, V FOR HISSINfi VALUES IN V GfVEN EVERT N-TH 

c value in V. there are a total of l Values in ?, 

c 

01 HENS I ON V(250> tTlZBOl , F ( 1 3Q ) , X I I 30 > , C X ( « I 
C 

IF INN ,UE, I) return 

c 

C PACK V-VALUES INTO F AND CORRESPONDING Y-VaLUES INTO X, 

C 


l-l 


J» I 

Fi n«vi 1 ) 

X I I ) >Y I i ) 


10 I • I ♦ I 

JsH|N0lJ«NN,LL> 

Fl I )»V( J» 

XI n-YIJ) 

IF IJ ,LT. LL) 60 TO 10 

LEN • I 

IXPPO 


C 

C INTERPOLATE FOR MISSING V-VALUES. 

C 

JLO-2 

JHI»JL0^NN-2 
SO 00 SO jajLOiJHi 

SO CALL XNTERP I Y IJ ) , V I J ) ,OCR , I XP , X ,F ,LEn ,CX , | XP ) 
JL0»JHI>2 

IF ijLo «ge, lli return 
JHI ■ MINoULO*NN.2,LL-I I 
GO TO 10 


End 
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SUBROUTINE PRINT 

Cf*»INT STORE ITEMS iN SUMMARY TaRUE EOR THIS STATION, AND PRINT 

C PROFILES aT TmIS station if REOUIREO* 

COMMON^OERENO^U<250»3> »h* 250»3> •ALPHA^^^OtStZ) »R hOV(2So) *Sh*^^0*^* 

Common/ I noep /s tOs • x iDx i y i 2sq ) »oy 

COMMON/PROP /RHOI25o»3’ »SMU( 25o»3> i'’R«25o» 3» tBLE(2Sy,3) . 

1 SMI (2S0i2i* ) tSCI (2S0i2«6| «T(2S0t3) • AV(2S0) 
COMMON/TPROP /EPS(250i 3) *PRTI250t3I tPLET(2S0»3> 

COMMON /YTABlE/ YTIL«2S0> .BGP(25C»fB6PPI2SOT»IVTlLP;iTTILF» 

T CYTIL(A) 

COMMON/STEPSZ/DXl IMC50».XLIMI50 )»LDXLIM,IoX, 

; SrTAB(50>iXTAP5K(50) tLSKTAB, ISKt 

2 OXI 

C0MM0N/6E0M /RWf2) ,DR«(0X(2) ,THW(2) 

COMMON /7CALC/ 2FTAO,2ETA,ZETAN,2ETaP,2STaRT 3I ,I)SZT2) .Y7ETA, 
i YT2ETA,YE0GE 

COMMON/WALLBC/TWAlL .SHWALL ,HWALL ,SMD«0,SMO«l,SM0WN 
common /EOGEBC/ TFOGE,SHFf)GE,HEOGE»UE06EtPEOGEB,AEEDGE,OUEDSO, 

T OUE05,OUEOSN,OPEOSN 

COMMON/NORMaL/BLREF tUREF|RHOREF,SMUREF.REYINF 
COMMON /GPARAM/ OuSTaR. Theta, TAUR,TAU l,BCF*SOI»»STAN;SNTGRLf 
t SOROS, SORO 

COMMON /TITLE/ TITLEM3I 

common/count /NY,nY I ,NY2,NY3 , JO, JN, J* ,NEL ,NELI , NSP , NM A X , N Y I 
COMMON/OPTION/ I deal ,LAMNR , INCOMP 
COMMON/STATN /ISTaTN,MAXIT,ITER 

COMmON/pRNTcT/NSPRNT,NLPRNT, ISPRNT, ILPRNT,LNSPP6,LIneSR 
COMMON/SUM art /SUM art (15,301 ,NREC,NSTA , 1$TA,nVaR» I0RUM,L AST 


/YTaBLE/ 
/YT able/ 


/zcalc/ 

/ZC ALC/ 

/EOGEBC/ 

/EDGEBC/ 

/GPaRAM/ 

/GPaRAM/ 

/TITLE/ 


COMMON/NERS /IYPr 


C 

C 

C 

C 


COMMON /NER7/ GPO , P AMB , I NTOK , 2E T AP I /NER7/ 

COMMON /NERM/ J20,UEK ,RUOEK /NeRII/ 

COMMON/NERB /RSTaR,RSTPR, XSTAR,OLSTO,OLSTTM 
COMMON/PFGAS /gamma, FM0LRT,PRI 
COMMON/RST ART/ I RSRD,IRSRR,ITaPE 

COMMON /fOOL/ ALTaBI 100) ,CAX( A> ,CC«(A) ,C0EECL,CPL,CPLTaR(20» , /COOL/ 

T CPSUME,CRX(6) ,CTHXI4I ,CtlX(A) ,CZX(*» ,OELXBA,01ATUB, /cool/ 

2 DX| ,HG,HL,IAX,IC00L,ICX,IRX,|THX,ITL)(,|TZTAB,IZX, /cool/ 

3 MASSL ,PRAN0L ,ORI ,RAMDL*RAM0i|,RAMTaB(20I ,retl,sorosi ,/cool/ 

«• SORI ,SUMQR1 ,TAW,TEMPRL,THICic,THITaB( 100) ,TL0,TL1 , /COOL/ 

G TL?,TLCA, 7 LTAB( 100) ,TunEN,Tw62,TRGCA,TRL,TZTABI20> , /COOL/ 

(, ZMYTARI20) ,ZMYUL, ITP0S,TRL2,TaRM,STANRE /COOL/ 

REAL MASSL /COOL/ 

COMMON /OMORI/ CUU ( 250 , 3 ) , CU V ( 2S0 , 3 ) , C V V ( 2S0 , 3 > , CHR I 250 , 3 ) , G AM A , ZK /OmORI/ 
COMMON/MUZZY/SOELTA nER 

COMMON/CONST/S1NIT,X1NIT,XMAX,DELTaI,SN1 ,SN2,SN3,EPSLN1 ,EPSLN2, ner 

i EPSLn3,CONVRG,020T,0«*OY,OOTSO nER 


DIMENSION AOUTI 12) ,B0UT(8) 

calculate dimensional rall and edge conditions. 

UEB«U(NY, JN)*UREF 

SA ■ S0RTIRR72I .01 IO'GAMMA/FMOLRTpTINy, JN) ) 

IF( IDEAL *EQ.0)SA>AV (NY) 

BMEaUEB/SA 
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c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


SMUCB«SNUINY , JNJ ‘SMUREr 
SM0»8»SM0i»*RH0REr»UREF*?ETA 
SMEB«SHtNY f JN »»UREF’*UBEP 
RhOEB«RhO< NY I JN I •RHOREF 

STORE ITEMS IN SUMMARY TABLE. 

ISTA«ISTA*I 

SUMARYI ISTA , I » •FLOAT! ISTATN) 

SUMARVf |STA,2laRW(2) 

SUMARYI lSTA»3)aUE|)| 

SUMARYI tSTA.RIaBME 
SUMARYI 1ST A.SJaSMuEB 
SUMARYI ISTA.AIaBCF 
SUMARYI tSTA,7»aSTAN 
SUMARyI ISTA,|i)aOLSTAR 
SUMARYI iSTA.RjaZETAN 

SUMARYI I ST A I IO»"RRl ?»*BL»EF-0 LSTAR#COsITHWI2» » 

SUMARYI ISTA, I I ) a I2.0*Y*BLREF 
SUMARYI |STA,l2>aTHRI2) 

SUMARYI ISTA, 13 »aY( NY, JN» 

SUMARYIISTA,l*MaREOGEB 
SUMARYI ISTA, ISIaSMONB 
SUMARYI I ST A, I A laT A UR 
SUMARYI ISTA,I7|aSQW 
SUMARYI tSTA,ie)aTwETA 
SUMARYI ISTA,l»»aZETAP 

SUMARYI ISTA, 201 a X»BLREF ♦ OLST ARaS I N I THRl 2 » ) 

SUMARYI ISTA, 21 >aS 

SUMARYltSTA,22laOS 

SUMARYI |STA,23)-ShEB 

SUMARYI lSTA,?*»|aRHOEB 

SUMARYI ISTA, 2SI • TLCA 

SUMARYI|STA,2A) ■ TW6CA 

SUMARYI ISTA,27»aS0W0S 

SUMARYI |STA,2B)aSNT6RL 

SUMARyI ISTA,2R)"«UE0GE-UINY, JOl )/05 

SUMARYI ISTA, 30> ■ T*L 

check if time to write summary table buffer on drum. 

IFI I ISTa.lt, NSTA » .AND. IL AST. E 0.0» »G0 TO 50 
NSTaMINOI ISTA ,NSTa) 

WRITE IIORUMI NST , I I SUHARy I I , Jl , Ja I ,NVAR) , !• I ,NST I 

ISTAaO 

NRECaNREC*! 

CHECK IF TIME TO PRINT, 

So IF IISPRNT .EQ. NSPRNTI ISPRNT • 0 
IFI ILPRnT.EO.NLPRnT) ILRRNT aO 
IF IILPRNT ,NE. 01 ,60 TO lOQO 

PRODUCE SHORT PRINT OF CONTOUR PROPERTIES, WALL aNO ED6E 

conditions, ANO profile Parameters. 

WRITE IA,9000I title 


new 

-0 1 
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non 


c 


LINESR ■ tNSPPa - 5 


UKRITE (A, 9010) 
LINfSR.UNESR-i 


XOUT ■ l?»0***BLPrP 

WPIT^ (A, 9020) ist*Tn** 0UT'S»'’S*P*‘2’ •THWI2) iZET^NtZETAp 

LINESR.LINESR-2 

WRITE (A*9030) 

RThET* •*RlYINF/PLR^^***HOtNT|jN)*U<NT,jN)iTHETA/SMUlNT,jN) 

ThLOSS • (4.283lflS304*»*M2)*BLREF)**J2D«C0S(THIM2) )*IRhOEB»UEB** 2* 
; ITHETA - BtREr*SNTGRL«RH0REr*l)REP/IRH0EB*WEB*RW<2)»*J2D) ) 

- . (PCOfiPB “ PAmB ) *D tST AR ) / 

WRITE (4,90*10) UEB,BME,OLSTAR,BCF,T(Ny, JNI , RHOEp , TMET A , S T AN , SHEB , 

T SHtlEB.TAUW.TAUI , PE')6EB . TW ALU . SO* » pTHE T A , TMLOSS , SMOWB 



PRODUCE LONG PRINT OF VARIABLE PROFILES FROM WALL TB EDGE* 
rlRST PAGE, 


WRITE (4,R0B0) 

LINESR*LINESR-I 

1-1 

550 AOUTM) • YTILI I )*BLREF*ZETAN 
A0UT(2)-Y( I ) 

A0UT(3)-U( I , JN)/U(NY, JN) 

A0UT(9)-SH( I ,JN)/SH(NY, JN» 

A0UT(5)-RH0(| ,JN)/RH0INY»JN) 

A0UT(4) ■ RhOV( I » -ZETAN/ ( RHO( NY , JN) *U( NY , JN) ) 

A0UT(7) - EPS( 1 , JN)*SMUREF 

AOUT(B)-T( 1 , JN) 

IF(LINESR,GT,0)GO TO 570 
write (A,90B0) 

WRITE (4,9050) 

L1NE5R • LNSPP6 - H 
570 write (4,90AO) I , ( AOUT ( J ) , J- I , 8 ) 
LINESR-LINESR-I 
IF ( I *6E* NY) GO TO 400 
I • MIN0( IPtYPR,NV) 

60 TO 550 
400 CONTINUE 


new 

-01 


new 

new 

new 

new 

new 


WR|TE(4,90B0) 

ZoELTA • S0 ELTA*PuREF»ZETAN«I2.0 
WR|TE(4,90) ZOELTA 
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u u 


90 rORMATliH 0FLTA>,|PF|2|5|9H (INCHESU mE«* 

L|NFSP»tMSPP6-5 nE* 

WR|TE(«,|00) new 

100 FORHATCPH N0.,AX,8H TAU » 6 X , | 2HT AU/ ( PE AUE2 ) t I X , nEW 

i 20H EPS/(PH0*UC*0ELTA» ,rx,12« YTIL/OELTAI NEW 

C new 

LINESR ■ LINESR-I NEW 

21 • SMUPEF*UPEF/ t BLPEF»2ETAN » NEW 

22 ■ I.O/tREVINFvzETANaPHOtNV.JNtaUCNY.JNt^UtNVtJNI) nEW 

23 ■ I,0/CRFYINF»2ETAN«U(NV,JN»««;0ELTa) mEW 

1 • 2 new 

101 OuOYI ■ OROY«(U( • J0>-UU*I • J0)«U( • JN>-U( 1-1 ,JN) I nEW 

AOUT(|) • BGP( I )*ZI*(SMU( I |JNI«EPSri t JNI I aOUOYI nEW 

A0UTI2) • AOUT( I )«22/2l nEW 

A0UTf3> ■ EPS( I t JN)*23/RN0( I t JNI nEW 

A0UT(4I • YT IL ( I ) /SDFLTA mEW 

lF<LtNFBR*GT.O) GO TO |02 nCW 

WP|TEIB,9080> new 

WP|TE(A»|00> new 

LINESR • LNSPP6-H NEW 

102 WR|TEIA,I03) I • ( AoUTI J) • Ja| •<•) NEW 

103 FORNATI |‘•,IP^^EU.7^ NEW 

LINESR-LINESR-I NEW 

if(i*6E*nyi> go tq ior new 

I • N|N0(|4lYPR,Ny| ) new 

GO TO 101 new 

iQR continue new 

NEW 

• •••••••••••••••••••••••••••••••••••• 

WRITE (A, 9080) NEW 

LINESR • LNSPPG-5 -01 


WRITE! AtPS02) 

LINESR ■ LINESR - I 
|a| 

SBI BOUTtl) • SHU! I t JN)*SHUREF 
B0UT!2l ■ YTIL! I ) /YTIL!NY ) 

B0UT!3) > CUU! I I JN) /U! NY • JN) avZ 

BOUTIN) ■ RHO! I I JN)/RH0INY| JNt*U< I • JNI/UINY, JNI 
B0UTI5) • CUVII , JNI*SMUREF 


C ••••• UITAU) ■ UT •••• 

UT • SORT!TAUW/!RhO! I t JN)«RH0REF) ) 


UTT • RMO! 1 I JN)«RhORFF«UT/ (SMU! I , JNI •SHURcF) 
BOUTIA) • U! I , JN)*URFF/UT 
B0UTI7) • UTT*YTIlII l•BLREF•2ETAN 
BoUTIB) • PRT! I I JN) 

IFILINESR.GT.O) GO TO S7I 
WRITE !A«S080I 
WR|TF!6»WS02) 

LINESR-LNSPPG-R 

571 WRITEIA.9903) It IBOUTIJ). J>ti8 ) 

LINESR • LINESR • I 
1F||*6F*NY) 60 TO AOI 
I aMlNOI l♦ITRRtNY) 

GO TO SSI 

AOI IF! I0CAL*GT*0> go TO 700 

IF IISPRNT tNEt 0) GO TO 700 



•RITE <A»’000» title 
linear • LNSRR6 * 5 
write («»9|S0) 

LtNESR»LINESR-| 

I>l 

«50 *OUT<n ■ TTILH »«B«-**EF*ZET»N 

A0UT(2>«»LPH*<I»JN,2)/*L^MA(|iJN,I» 

AOUTO>«SCI(1 ,JN,I > 

AOUTIRIbSCKI . JN|?) 

AOUT(S)*SCII I t JNtT> 

A0UT(&)-SCI C I , JN,<«) 

A0UT(7l-SCni t JNt«> 

AOUT(B)>SCm.JNi6) 

A0UT«9JWSmM I , JN>*SMUREF 
AOUTf IO)>PR( I • JN) 

IMLINESR.6T,o>60 TO 670 
WRITE C6|?0P0) 

WRITE «A,9|50) 

LINESR • LNSPPG - 9 
670 write (6,9|60> I 1 1 AOUT ( J < f J* I • 1 0 I 
LINESR«LIMESR-| 

IP <1 .6E» NY) 60 TO 700 
I • MIN0«I*|TPR,NV» 

60 TO 650 

700 WRITE (6t9070> ITpR 
C 

C cWECtC ir TIME TO WRITE RESTART TAPE. 

C 

IP I I IRSWR.EO.O I ‘OR. < I X* I »E-6 ) .UT. XL lOI lOX I I ) GO TO 1000 
C 

C ijROATE 7ETA-RELATE0 QUANTITIES NEEDED POR RESTART. 

C 

2P»I7ETAN-ZSTaR« I ) »/«0S2< I I^OS) 

write IITAPEI ISTATN,NT,Oy,ZETAN,ZETA,ZETAN,ZP.?ETAO,OS,TZETA, 

7 VTZeTA.YEDGE .RSTPR .SNTGRL .SQWOS, I (U(I,J),H(I,J t. 

z ALPHA(I.Jtl><ALPHA(ItJ.?).SH(IiJl.I«l.NV|,jBl,3>.( 

3 RHOvn » . I"I .NT) , I Yl 1 I , YTILI I > ,B6PT I » .PGPPf I » . t*I t 

I NMAX) 

C 

C advance print station counters. ' 

c 

lOoO ISPRNT»ISPRNT^ I 
ILPRNT»ILPRNT* I 
RETURN 

9000 format ( IHI.Z6X.I3A6//) 

9010 format I9X.7HSTATI0NiBX.8hX ( PEET ) , 1 5 * , 1 HS . I H X . BMOS 4 I ** X , 2hRW . I OX . 

1 6HTHETAW, |2X,9HZETA. I I X.5HZETAP) 

9020 format ( I 16. IP7EI6.7/ ) 

9030 format (IBX.29HEDGE AND WALL CONO 1 T I ONS . 99X , 

7 I8HPR0FILE PARAMETERS) 

90**0 F0RMATI7X.9MUEB • , I PE 1 9 . 7 , 7 X , 9hBME • , E I 9 . 7 , 1 7 X . 9m0lST AR • , 

7 EI9.7.7X.9HBCF • , E I 9 . 7 /7 X , 9HTE06E • ,E I 9 . 7 .7X , 9HRM0EB • . 

2 EI9.7. I7X.9HTHETA ■ . E I 9 . 7 . 7 X , 9HST AN > ; E4 9 , 7 /? X . 9hSHEB • » 

3 EI9.7.7X.9HSMUEB ■ , E 1 9 . 7 , I 7 X , 9hT AUW ■ , E I 9 , 7 , 7 1 , 9hT AU I • . 

A E|9.7/7X,9HPE06Et • , E 1 9 . 7 . 7X , 9MTW ALL • ,E I 9 . 7 . I 7X .9MSQW • . 
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90S0 


eM.Tt7X,9HI»THETA 
Cl**. 7/1 


»E1**,7/7X,9HTHL0SS • . C 1 ** . 7 . 7X * 9HSM0WB 


9060 

9070 

9090 

9|S0 


format 


YBAR 

Y 

u/uc . 

6|H 

H/HE 

RO/ROE 

ROV 

EPS , 

tIH 

format 

FORMAT 

format 

format 

T » 

C 15, IP7EI6. 
f/l8H NO* 
i |H1 ) 

<5«IH NOt 

7.0PFI 1. 1 ) 
ITERATIONS «,I3) 

YBAR 

0/F 

CIH) , 


I 


6|HC(H2> 
I IH 


C(H20> 
PRI 


C(02) 


HU 


CIOI C(OH) 

2 IIH PRI 

9160 format C is. IP2EI A. 7iOPAfI I .6, IPCt**.StOPFl I *B> 

99o2 FORMATIRH N0.,6Xt9H MU 1 1 2X » I HY . I | X , 8H K /IJE2.9X.8H RU/RCUC , 

\ 8X,eHMJXC00T ,9X,6H U0A6 . I I X , HMyO A 6 , I 3X , 3uPRT I 

9?o3 FORMATC I 9 , IP8C 16.7 • 

ENO 


SUBROUTINE PROFIL 

CPROFfL CAtCULATC INITIAL DEPENDENT VARIABLE PROFILES FROM ICNORN PALL 
C ANO EDGE CONDITIONS AT S ■ SINIT. 

C 

COMHON/OEPENO/U( 260.3) .H( 260.3) , ALPH A ( 250 , 3 , 2 ) ,RHOVI25o> .SHI 250 .3) 


COMMON /VTABLE/ T T I L I 250 ) . BGP I 250 ) . BGPP I 250 ) . I YT I LP; I TT I LF , /YTaBLE/ 

7 CVTILIA) /YTaBLE/ 

COMMON /ZCALC/ ZET AO , ZE T A , ZET AN , 2E T AP , ZST aR I 3 ) .OSZ I 2 ) . YZET A , /ZCALC/ 

^ YTzETA.YEDGE /ZCaLC/ 

C0MM0N/WALLBC/T*ALL.SHWALL .HPALL .SM0*0,S MOW , shown 

COMMON /EOGEBC/ TCOGC,SHEOGE,HEOGE,UCDGE,PEOGEB,AFEDGE,OUEDSO, /eogebc/ 

T OUEOSiOUEOSN.OPEDSn /eogebc/ 

COMMON/NORM AL/BLReE .UREF.RHORFF.SMUREF.REY INF 
COMMON/MULT /XN.UEN.PCNfSMON, YN 

common/count /NY .NY I |NY2 .NY3 , JO t JN. JA (NCLtNCLI .NSP.NMAX ,NY I 


COMMON/OPTION/ IDEAL. LAMMR, INCOMP 

common /INPROF/ UPR0FI50) . V9YNUI50) .LUPR0F.CUYXI6) ,mPR0FI50) . /INPROF/ 

7 YBYNHI50* .LHPR0F.CHYXI6) /INPROF/ 

C0MM0N/NEW3 /AFTRNS.PLAW 

COMMON/NCW 10 /APROFI50).YBYNAI50) .LAPROF tIAYP.CAYX(6).AFWALL 
COMMON /TPROP / Fps I 250. 3 ) » PRY I 250 . 3 ) ,8LET I 250. 3 ) 

COMMON /OMORI/ CUIJ ( 250 , 3 ) , CU V I 250 , 3 ) » C V V I J50 , 3 ) ; CWW ( 25Q , 3 ) . G A M A , Z K /OmORI/ 


C 

C 

C 

C 

C 


ifiluprof.eo.oigo 

usc experimental u 
TO YTfL. 


TO 5 

OR H PROFILES. 


FIRST CONVERT ARGUMENT TABLES 
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TH|«YN/»BLREr»ZET*0) 

Do ‘*10 !■! tLUPROF 

**I0 VBYNUlt) • TBYNU*I>*TM1 

DO ‘*20 l-Ul-HPROr 
M20 YRYNH(n ■ YBYNH(I)»TMI 

00 **25 I«1 ,L*PROF 

‘*26 YBYNAU) ■ YBYNI(|>*YMI 
IUYP-0 

CBLL^XNTERp'(YTIU J > ,UV*L,DUMMY| ,IUYP,YBYNU,UPROr,LUPROF,CUYX,IUYP) 

**30 U*I»J*^> • UV*L*UfOGC 

IF*LAPRf>E»E0.0>6'' TO ‘*‘*5 

1 AYP-0 

DO ****0 !■! iNY 

C*LL XNTERP ( YT !L * 1 > • n • JN * I > «OUmmY I , I BYP , yBYN* I APROF * 

7 LAPROF.CAYX.IAYP) 

****0 alpha* I , JN,2) ■ liO • alpha* t tJR« • ♦ 

IF * INCOMP ,GT. 0) CO TO 102 
lHYP-0 

DO *(50 t-l t**Y 

CALL XNTFRPIYTIL* I 1 tHVALtOUMMYl , I H YP t YB YNH t HPROp f LHPRO f , CH Y X » IHYP) 

SH* 1 * jn>»hval»shedge 

**So H*I,JN» • SH*I,JNJ ♦ U* 1 , JN)»»2/2»0 
60 TO 210 

C calculate U PROFILE ACCORDING TO INPUT PORe« tA*. 

C 

6 ThI • 0«9*YTIL<NY» 

Th2»I »/PLA* 

TM3»0»l*YTtL*NY> 

IH|«0 

DO 100 1»I.NY 
IF *IHI .6T. 0» go TO 30 
IF *YTIL*I» .LTt TM3» 60 TO lOO 
IHI ■ I 

3*J IF *YTIL*I> •6E» TMI» 60 TO 60 

U*I,JNI ■ HEDGE* * YT IL * I » /TMI) ••TH2 

60 TO 100 
60 U* I , JNI-HEDGE 
too CONTINUE 

SLOPE-U* IHI,JN»/YtIL*IHI) 

DO 105 t>l»|HI 

105 UII.JN) ■ YTIL*n»SLOPE 
C 

C c*LCULATE H and SH PROFILES FOR COMPRESSIBLE OR INCOMPRESSIBLE 
C CASE* 

C 
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o r» o r> o o n r> o 


IF( |NC0MP«EQ«0>6n TO 120 
107 Oo 110 t ■ IfNY 
SHII t JN)>SHW«t.L 

lln H(ltJN) ■ SHWtLL * U( t • JN)«*2/2*0 

60 TO 210 

120 00 200 I • I iNY 

I f JNI-HWALL^UC I , jN)/UE0r.E»tMeO6C-H»IALL» 

200 SHdtJNt • H(liJN) - U( I iJN)**2/2*0 

rALCULATF CONSTANT ALPHAI PROFILE ACROSS BOUROaRY LAYER* 

ALPMAl • ALPMAIE 

210 IP ILAPROF *6T. 0> SO TO 3I0 
00 300 laliNY 

ALPHA! I . JNt I ^■AFPALL♦< AFEOGE-»F«ALL>*UI t • JNI/UC()6E 
300 AtPHAI 1 ,JN|2» ■ 1*0 - *LPHA«I,JN,n 

fALCULATF RHOV PROFILE* 

310 THI • I*0/YTIL(NY) 

Oo SOO 1 * 1 iNY 

500 RHOVII) • SMOR ♦ TM|*YTIL(II 

CALCULATE CUU AND EPS PROFILES 

DO 1000 t>l»NY 

TM2 ■ YTIL< t ) /YTlu (NY) 

CUUII.JN) ■ 5.0E-5»UEOGE«*2*TM2*« I *0 - TM2»*«2 
1000 EPS! I,JN»»REY|NF«ZETA0*YTIL( II • I 0 * 205* TM2* TM2-0. 58 A * TM 2*0 * H 3 I )• 

7 SORTICUUI I tJN) »*I2* 1832339 - | * I 8323399 TH2 > *H , | 96 38 20 


C 

C move forward values TO back values* 

c 

DO AOO !■! |NY 
U( I , JO)bU( I , JN) 

Sh! I t J0I«SH! I I JN) 

HI I . JOIaHI I . JN) 

CUU! I * JO) >CUU( I I JN > 

CUV! I (JO)>CUV( I , JN) 

CVV! I *JO)«CVV( I • JN) 

CWW! I , JO) ■ CWWI I , JN) 

U! I t JA) • U! I • JO) 

CUUI I ,JA ) • CUU! I , JO) 

EPS! I .JO) ■ EPS! I , JN) 

EPS! I .JA) • EPS! I , JO) 

00 AOO tCL ■ I.NEl 

AOO ALPHAIt.JO.IEL) • ALPHA I t , JN, I EL ) 
return 
ENO 


new 

.01 
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u u 


SUBROUTINE ROTAPE 

ctpre*o search restart tape tor proper station and read restart 0ATA» 

COMHON/OEPEN0/U<?50»3)»H(250i3>»*>-PHA(2S0*3*2»»RH0?I250>«SHl25Ot3) 

COMMON/tNOEP /S »OS » X ,DX , » ( 2S0> »DT 

COMMON /YTABLE/ Y T I L ( 250 > i BfiP « 250 ) » B6PP ( 250 ) » I TT I LP , I TT 1 LE , 

; CyT1L(6) 

COMMON /2CALC/ 2 ET AO i 2 E T A , Z E T A N i 7 E T aP , 2ST aR ♦ 3 ) * 052 I 2 ) » Y2ET A , 

; ytzeta,yco6E 

COMMON /6PARAM/ OlSTAR. theta, TAUR»TAU|,BC r,SQ«(tSTAN,SNT6RL. 
i SOROS, SQPP 

COMmON/CONST /SINIT,XINIT,XMAXiOELTAI »SN1 ,SN2»Sn3,EPSLNI ,EPSLN2» 

: EPSlN3,C0NVR6|020Y,0‘*DY,O0YSQ 

COMMON/COUNT /NY ,NYI »NY2,NY3,JO,JNtJA»NEl.,NELI tNSPiNMAXtNYI 
COMMON/STaTN / I ST aTN *m aX I T , I ter 
common/nerr /rstaR,rstpr,xstar,olsto,olstth 
COMHON/RST ART/ I RSRO , IRS*R , I T APE 


/YTABLE/ 
/YT able/ 
/ZC ALC / 
/2CALC/ 
/GPaRam/ 

/cPaR**^/ 


c 


rewind itape 
to read c itapei istatn 

in istatn- I RSRO > 10,30,20 
20 write (A, 9000) IRSRD 

9000 FORMAT I//37H THERE IS NO RESTART OATa FOR ST AT I ON , 1 5/ / ) 

call exit 


C 

C 

C 


3o 


rEAO restart data for station IRSRD. 


BACKSPACE itape 

READ (ITaPE) I ST ATN , NY I DY , 2ET AO . 7ET a »7ET an* ZET AR ,Z5T aR I 
YZETA ,YTZETA , YE06E,PSTPR,SNT(;RL,S0W0S, ( JU( 

.ALPhAII , J. I ) , ALPHAII , J,2» ,SHI I ,J) , I«| «NY) 

OV«n,!"l,NY),lY(I),YTILn) .WSP< I I ,B6PP« 1 ) 

REWIND ITAPE 


I > .0SZ( I ) , 

I , J) ,H« I , J) 
, J»I ,3) ,<RH 
, |>| ,NMAX ) 


SET DTHER COUNTERS AND CONSTANTS AASEO ON RESTART DATA. 

NY|>NY-I 
NY2»NY-2 
02DYRC.5/DY 
0NDYR0.25/0Y 
OOTSO-I ./I0Y»DY ) 

return 

END 
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SUBROUTINE react 

COMMON /MISC/ ENN,SUMN,TT,SO,ATOM|3,lo5),t:LMTII5»,BOCl5», 

» BOR( I5«2> *^M»TLOH»TMtO»THtOH*RR*C»SUH«Of lEORATi 

2 MSUB0iHPP<2> iRH0(2> ,VM1n(2) , VPLS < # ) , RP | 2 > , 

3 NAMfj|5,5),ANUM»|5,SI,PECRTIISI,eNTH<|S»,PAZnS», 

R RTEmPI 151 .POX C ISI ,OENS( IS) »TLN 


* I 
A 8 
/RISC/ 
/MiSC/ 
/MlSC/ 
/MiSC/ 
/MISC/ 


COMMON /INOX/ C0Nv6,TP,HP,SP,H0LES,NP,NPT,L,NS,ICMAT* IMAT, IQI »NC, 
T JSOl.JUQ. ICi 102 

COMMON /INPUT/ B(R.30) • IPOLV.ITHERM.MTIR.SO) .NPnOD.NSPEC* 

? PHaZOO) |T| ( 3o).T2(30) 

C 

DIMENSION ANAME(IS.S).DATA(I5).V(I5) 

EQUIVALENCE (NAME.ANAME) 

data IZER0»LANK,0x/2H00. IH ,IH0/ 

LOGICAL holes 
C 

DO 20 K > I ,2 
WPIKlaO* 

HPPIK )•o« 

RhO(K)«0. 

VPLS(K)>0* 

VM|N(K)*0* 

DO 20 J«1 I IS 
LLMTIJ)«0 

20 BOP(J.K) a 0.0 
La| 

DO RO N a I .NSPEC 

IP (NAMEfNi I I.EQ.LANK) 60 TO ISO 

WRITE tS.230) (NAmEIN. I ) t ANUMIN. I ) . I a I ,5 ) .PEC*T I N I . MOLES . 

I ENThIN) .PA2IN) .RTEmpin) ,POXIN>.DEnSIn« 

Ka2 

' the test POR equality between N0M-!NTE6ERS May not be meaningful. 

IP IPOX(N) .EO.OXI Ka| 

Do so ja| , IS 
So DATAIJ) a 0.0 
Rm«0. 

DO I 10 jja I .5 

THE TEST For EQUAlITy between NON-INTEgERS may not be meaningful. 

IP ( ANUMIN, JJ> .EO.d. ) GO TO 120 

DO GO Jal.lS 

Njaj 

IP (LLMTI J) .EQ.Q) GO TO 70 
IP |NAME(N.JJ).E0. LLMTI JM GO TO 80 
GO CONTINUE 

TO LaNJ 

LLMT(J)aNAME(N. JJ) 

80 00 «0 KK a I ,|QS 

the test POR equality between non-integers may not be meaningful. 

IP (ATOM! I .KKI.EQ.ANAMEIN.Jjn 60 TO 100 

TO Continue 


/INDX/ 

/iNOX/ 

/Input/ 

/INPUT/ 


A 18 


A 21 

A 23 
A 2R 
A 25 
A 24 
A 27 
A 30 
A 31 

A 34 

A 39 


A 


A RS 
A RG 

A R9 
A SO 


A SI 
A S2 
A S3 
A SR 
A SS 
A SG 
A S7 
A S8 


A GO 
A Gl 
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100 

1 lo 
120 


130 


t«0 

60 TO MO 

RM«RM^ ANUM(N • JJ)*aT0W<2*K»C) 


VC J>«AT0 m< 3|KK» 

DATAC J) • ANUMCN, JJ) 


PrWT»PECWTCN) 

IF (MOLES) PC<WT»MC«iT^RM 

I^llNAMelNlsUNE. IZERO) HPP(K)-HPP<ICJ*ENTh<N»*PC«IT/RM 

Do 130 J»I*L 

BOPlJiKl ■ DATA! JJ^PC^T/RM ♦ BOP<J»f* 

IF (DENS(N) .LE* 3»0» GO TO MO 


RhO(K) • RHOlKl ♦ PCWT/DCNS < N 1 


•*0 

160 


220 


16B 


CONTINUE 
NREAC-N-1 

IF 1 l »NE* 0* GO TO 1*5 
write (6t220* 

Format • // 20 x .sThError in input 
; NAME IN atom array as given in 

return 

^ 00 I’O E • I .2 

the test for EOUALITy BCTRECN NON-INTEgERS mat 
IF IRPIEI .EO. 0. 1 60 TO |R0 
HPP(K)bHPP(K)/I«P(kI 

the test For eouacitt between non-integErs mat 
if (RHOIEI.NE.O. » RHOIK)»WP(E)/RHO|K) 
on 170 J>1|L 


n»mEs of reactarts. Does not m*tCh 
RLKOTa//) 


not be meaningful* 


not be meaningful* 


BOP<J*K»*BOPI Jir>/*P<K> 

IF CV<JI*LT,0,» VMlN(K)-VMIN«K)*POP» J*K»*VIJ> 

IF 1V1J»*6T*0*I VPLSin-VPLSir )*ROP» J,E)*VIJ) 

170 CONTINUE 

IF IMOLESI GO TO |90 
on ISO NsliNPCAC 

» THf test for equality between non-integers M*Y not be meaningful* 

IF lFOXlN»tEO*OX. aN 0*K*E0.2) 60 TO IBO 

THE TEST for EQUALITY BETWEEN nOn-INTEgERS M»Y NOT BE MEANINGFUL* 
IF IFOX r N ) ,NE ,0X , »N0 .K .EO • I ) GO TO 1 80 
PECWTINl-PECWTINl /WPIXl 

ISO Continue 
190 CONTINUE 

DO 200 NbIiNREAC _ , 

THE TEST For equality between NON-INTEgErS mat not be meaningful* 

IF IDENSIN) ,NE*0* » GO TO 200 
RHOl I 1*0* 

RETURN 

200 CONTINUE 

return . , 

230 roRMAT (|X,5C A2,IX.r7.M.2X) •MoM.2XtLl.Fl t.2i2X.Al .JX,F8t3.2X. 

t A|.3X,F6«S) 

END 


62 

63 

6*4 

6S 

68 

69 

70 
7 I 
73 


82 


85 

86 

86 

89 

90 

91 

92 

93 
9H 
95 

9£ 

97 

98 

99 
lOO 
102 

A 10^ 
A 10^ 

A 10& 


A n 2 
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subroutine search 

c 

OINENSION DATEIZfSO) 
EOUIVALCNCE <0ATE,EN) 
INTEOER OAS.RHAZ.SUB 
data 6AS/IH6/ 


A I 

A 2 


A 9 


C 


I 

1 

T 

2 
.1 


COMHON /INPUT/ B<*4,30) t IR0LTiITHERH»HT(9,30TtNPR0DtNSRECi 
PhaZOOI «TI (30) ,T2(30> 

COMMON/SPCCeS/COCF (?,7,3 q) ,S(3q) *EN(3q.|3) ,ENLN(3|)) iHqISq) , 
DELN(30) iA( IS.3QI .SUB(3o,3| , I USE (30) tTENPeSOtZ) 
COHHON /MISC/ ENN ,SUMN »TT ,SOi aTOH( 3. lOS) »LL nT( IS ) ,BOI IS) t 

BOP( 15.2) .TM,TLO«(.TH|0,ThI6H.PP»CpSUM|OF.pORAT» 
HSUR0.HPP(2)|RH0(2».VHIn(2),vPLS(?),»P(2), 

NAMr ( IS .5) i ANUHI IS.S) .PPCNTI IS> .EnThT IS) .FAZ ( |S) . 
RTEmPI IS > .Eox ( IS) (DENS I IS) .TtN 

COMMON /INOX/ CONvG,TP,HP,SP,MOI.FS,NP,NPT,L,NS,ICMAT,|MaT,|Q| fNC, 


I 


JS0L.JLIQ.tC.IQ2 


NC-0 

IX«0 


00 MO NS • I .NPROO 
00 100 K m I |M 


• THF TEST for EQUALITY BETWEEN N0N-|NTe6ERS MaT NOT BE MEANINGFUL. 
IF (BlK.NS) *EQ* <^.0) go to IIO 
00 BO |a| .L 

IF ILLMT(I) ,EQ. mT(X,NSI) SO TO |00 
SO CONTINUE 

00 90 ja| iL 


»0 A(J,NS)«0. 

60 TO MO 

100 All. NS) > B(K,NS) 
no IF (NS .EQ* 30) 60 TO ISO 

IUSEINS>«0 

IF (PHAJ(NS) ,E0. GAS) SO TO MO 
NC»NC*I 

TEMPlNC.I) ■ TIINS) 

TEMPINC.2) « T2»NS) 

IX«IX.| 

IF ( lUSC(NS-) ) .EO.O.OR.NC.EQ. I ) 60 TO | 30 
Do 120 l-I.L 

* THp test for equality BETWEEN NON-INTEGERS MaT NOT BE MEANINGFUL. 

IF (Al I «NS) .NE.AI T .NS-I ) ) GO TO 130 
120 CONTINUE 
IX»IX-| 


ISO IUSE(NS)a-IX 
Mo CONTINUE 


/INPUT/ 

/INPUT/ 


/MiSC/ 
/MiSC/ 
/MiSC/ 
/MiSC/ 
/MISC/ 
/INOX/ 
/INOX/ 
A 2M 
A 2S 
A 2A 


A 51 

A S3 
A SM 
A S5 
A SB 


A 59 
A A| 


A AM 
A AS 
A AA 

A A7 
A AB 
A A9 
A 70 
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n r> n n o 


A 73 




60 TO UO 

ISO WRITE (6»2IOt (SUfMNSt J) • J>i (3) 

UO WRITE «A,220> 

Do |T0 I«I.NS,5 
I6«I*R 

IE (NS.UT.IS) IS«NS 

170 WRITE 16*230) ( 0* TE < I * J > i 0 ATE t 2 * J) *SUB I J * I ) . SUB < J , 2 » . SUM J * 3 ) . J" I . 
iis) 
return 

210 EOR»«AT IRSHODIMENSIONS I N / SPECES /TOO SMALL TO CONSIDER *3A*«) 

220 format I R2H0SPEC I ES BEING CONSIDERED IN THIS SYSTEM I 

230 format (S(SX.2A3.2X,3A<m 

END 


78 

79 
BO 
8 I 
82 
83 
88 

89 

90 
91- 


SUBROUTINE SPCALC 

CSPCAtC PERFORM A SERIES OF ENTR0PT-PR|SSURE CALCULATIONS* 

^ COMMON /POINTS/ HSUMI 13) .SSUMI 13) ,CPRI13) .OLVTPI 13) .OLVPTI 13) . 

; 6AMMASI ! 3» ,PII3> »TiPPP« 13) , WM ( | 3 ) , SOnVEL 113). 

2 TTTII3) 

COMMON /SPEC ES/COEF (2|T,30).S(30).EN(30»I3) ,ENLN< 30» * HO (30) * 

, OELN( 30) »AI 15,30) .SUB130.3) ; I USE I 30) , TEMP (50, 2) 

COMMON /MlSC/ ENN,SUMN,T7,SO,ATOM|3,I05 ) ,LLmTI IS) , 601 IS) » 
i BOP( 15.2) ,TM,TL0W,TMI0»THt6H,WP,CPSUM,OF,E0RAT, 


A 2 
/POINTS/ 
/POINTS/ 
/POINTS/ 


/MiSC/ 

/MiSC/ 


2 HSUB0tMPP(2) ,RH0(2) *VMlN(2) ,VPLS(2) *WP(2) * /MiSC/ 

3 NAme( 15,5) ,AnUh( 15.5) ,PEC«T(15) »EnTh1 15) ,fA 2( I5) , /MiSC/ 

4, RTEmPC 15) ,EOX( IS) ,DENS( IS) ,TLN /MiSC/ 

COMMON /INDX/ cOMVG.TP ,hP ,SP,MOLES iNP,NPT,L,NS,|fMAT , 1 M*T , I8I ,Nc , /IND*/ 

7 JSOl,JLI0,IC,I02 /ino*/ 

COMMON/ I NODE /TIN(|3),0FIN(13),HIN(I3) 

A 16 

set 0-F and INITIAL temperature GUESS. (ENTROPY STORED AS SO.) 


200 


TT-T IN( I ) 

WP( I )»0F 
WP(2)-I . 

Do 200 lal.L 

Bod) • (WP( 1 )»BOP(I , I ) 

DO 60 IPal.NP 


♦ WP(2)*B0P(I»2))/(WP( I) ♦ Wp(2)) 


SET ASSIGNED PRESSURE. 
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IP» 

call CQLnRM 

T ■ TT 

THF TEST FOR EQUALITY BETWEEN N0N-INTE6ERS HaT NOT BE HEANINSfUL. 
IF |TT»NEtO#> 60 TO 20 
IF INPT .EQ* 01 return 
20 Kao 

• THf test for equality between NON-INTeoFRS may not be meaningful. 
IF ( IP.EO.NP.OR.TT.EQ.O* ) GO TO 30 
KaMPT 

IF (NPT.NE.I3) GO TO NO 
30 IF (K .FO. 0) RETURN 
NPTaQ 

NO NPTaNPT*! 

C SAVE COMPOSITIONS FOR ESTIMATES OF NEXT POINT 

00 AO I a I ,NS 
AO ENI I .NPT) ■ ENI I »K ) 

return 
End 


A 22 


A 2H 

A 2A 

A 27 
A 28 
A 29 

A 3A 
A 37 
A RO 


A SO* 


SUBWOUTINE step 

CSTeP determine next STEPSIZE and calculate contour properties aT 
c The forward station. 

c 

COHMON/INOEP /S . DS . X . 0 * i T ( 250) lOT 

COHMON/XT able /RWTAB t 500) • X T ABRW ( 5Q0 ) >LRWT A B , I RWXP .CRWX ( A ) , 

\ PETAB(S 00 )|XTA 9 PC(« 00 )fLPCTAB,IPExP,CPEX(A) . 

2 UCTa8(S00)i LUETaB. IUEXP.CIIEX) a) • 

3 XT 0 UDX( 5 O 0 ) fLDUOXT, lOUQXP 
COMMON/STEPSZ/OXLIMISO) .*LIM) 50 ) .LOXLIM.IOX, 

1 SKTABI50) ,XTAPSK(50) .LSrTAB, ISK. 

2 OXI 

COHMON/GEOM /RWI 2 ) ,ORWOX ( 2 ) ,THW( 2 ) 


/COOL/ 

/COOL/ 

/COOL/ 

i/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 


common/const 

t 

cohmon/statn 

COHMON/PRnTcT 

C0MM0N/R5TART 

common /cool/ 


1 

2 
3 

R 

5 

A 


real massl 


/SINiTf X INIT.XMAX.OFLTAI ,SN| ,SN2 .Sn3,CPSLN| .EPSLN2, 
EP5i.N3,CONVRG,02OY,0RoT,O0YSQ 
/ISTaTN.MAXIT, iter 

/NSPRNT,NLPRNT,!SPRNT, ilprnt;lnspp<;.linesr 
/ IRSROi IRSWR , ITAPE 

AITaBI 100) tCAX(A) .CCX(A| .COEFCL • CPL . CP lT AR I 20 ) • 
CPSUME.CRXI A) tCTHX(A) .C tlX ( A ) .CZX ( A ) .OELXB A ,0 I ATUB • 
0X|,H6.HL,tAX,tC00L.ICK,IRX,ITHX,lTLXt ITZTAB.IZX, 
MASSLiPRANOL.OWt .RAM0L.RAM0 w.RAMTaB( 20) .RETLfSQWOSI 
SOWi .SUMOWt .TAW.TEMPRL.THlCK.rHlTABI 100) .TLOtTU . 
TL2.TLCA ,TLTAB( lOO) ,TU8EN,Tw62.TWf,CA,TWL,T2TAB<20) , 

zmyta8(20) i7myul» itpos,twl2;tawm,stanre 
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n o 


».OVE rO««*RO OUANTJTIFS TO BACK O'UNTlTlCS; S AMD X HAVE BEEN 

c upoateo previously# 

c 

THN( I )>THW( 2) 

K«( I ) >RN( 2 I 
OPNDX ( I IbORROX ( 2) 

C 

C ^ETERMINF NER OS AnO OX. 

I r ( I X* I .E“6 I • LT . XL I M ( 1 OX • ) GO TO 10 
DX"OXLIM( IDX) 

DS»OX/COS ( THR < I ) ) 

|OX>IOX«I 
GO TO RO 

30 IE IX ,LT. XTaBSKIISKH go to 50 
ISK - ISK ♦ I 
GO TO 30 

SO 0X*DX«$KTABI tSK ) 

IE I ISTATN.EO. I lOX.OXi 

IE I I IRSRO.GT.OI »ANO. I ISTATN.EO. I tRSRO*l It iDlPOXf 
DS«OX/COS( THR( I I » 

IP I I XyOX* I .E-6 ) .LT. XL IN* lOX n 60 TO 80 

OX»XLIHIIOX)-X 

OS»OX/CPS(THRI I ) I 

ISPRNTpO 

ILPRNTbQ 

ftO IEIIX*0X4| .E-6 I.lt. XPAXIGO TO SO 
DXPXMAX-X 
OS»OX/COSITHW( I ) ) 

C 

C c*LCUL»TE contour properties at X ♦ 0*. 

so CALL XNTERP ( X yO X , RR I 2 ) , ORROX | 2 I , I R«* P . X T aBRR , RRT AB * L»RT AB , CRRX , 
i IRRXP) 

ThRI2>»ATAN(0RR0X »2) I 

lE nCOOL .EO. 0) RETURN 
IS • ISK 

IP IIX ♦ OX ♦ I.OE-6) .LT. XLIHIIOXII GO TO 31 

DX| • DXLINI IDX) 

GO TO SI 

3| IP IX ♦ OX .LT. XTABSKlISn GO TO 51 
IS ■ IS ♦ I 
GO TO 31 

5| OXI ■ PXI*SKTABI IS) 

IP IIX ♦ ox ♦ 0X1 ♦ I.OE-6) «LT. XLINlIOXn go TO R| 

0X1 • XLI MI lOX I - IX ♦ OX ) 

B| IF II* ♦ OX ♦ OXI ♦ I.0E“6I »LT. XMAX> RETURN 
0X1 • XMA* - IX * OX ) 

IE lOXI .LT. 0.0) OXI p 0.0 

return 

end 
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SUBROUTINE SUMTAB 

csumt*b rritf summary table or imbortant bounbary Layer parameters at 

C EACH STATION 

c 

COMMON /TITLE/ TITLE<|3» 

COMMON/SUMARY/SUMARYI 15,301 ,NREC,NSTA , I ST A , N VAR , I DRUM , LA ST 
COMMON/NEWS /RST | R , RSTPR , X ST AR ,RLSTO , OLSTTM 
C 

C |F abnormal termination, WRITE CURRENT SUMMARY TaBLE BUFEER ON 
C DRUM, 

C 

IF tISTA ,LE* 0> GO TO SO 
NST ■ ISTA 

WRITE IIORUM) NST, ( (SUMARyI I ,J1 ,J>| ,NVARI,|«I ,NSTI 
NREC«NREC*I 

So IF (NREC tEQ, 01 RETURN 
Rewind iorum 


00 100 |REC«l,NREC 
WRITE IB, 9000) title 
WRITE U, 90101 

READ llORUM) NST , ( ISUMARY ( I , J) , J«1 ,NVAR) , !■! ,NST) 

00 30 I>I,NST 

SUMARYI 1 , 10) -SUM ART! I , 10) /RSTPR 
30 SUMARYII,20) ■ SUmARY II , 20) /RSTPR 
100 write IB, 9020) I I SUMARY ( I , J ) , J * |,NvARI, I ■ |,NST) 

RETURN 

9000 format I IHI ,2BX, I3AB) 

9010 format II3H station, ||X,2hRW, tax, 3HUEB,I0X,3hBME,8X,SHSMUEB, 

7 lOX ,3 hBCF,9X ,HhSTAN, 7X ,BHDLSTAR,aX ,S h2eTAN,9X,mmR*PR/5X ,BhX (FEET 
2) ,7X,BHTHETAW, I I X,2HTE,7X,6HRED6EB,aX,5HSM0W8,9X,*»HTAUW, 10X,3HSOW, 
3 8X,5HTHETA,8X,5H2ETAP,10X,3HXPR/l2X,lHS,t 1 X , 2Hf)S , 9X , RHSHE B , 8 X , 

9 5HRH0EB,9X ,**hTLCA,8X ,SHTWGCA,8X,ShS0woS,7X,BHSnT6RL,8X,5H0UEDS, 

5 BX.ShTWLCA) 

9020 format l0PFl3*I,lp9EI3*S/10EI3«5/tOEI3*5/) 

End 


/TITLE/ 
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SuBROuTfME TABLES 

CTAHLrS NORMALIZE TABLES AND INITIALIZE TaBLE POINTERS EOR SUBROUTINE 
C XNTERP. initialize *ALL AND EDGE CONDITIONS EOR PEPEECT 

C GAS OR HTOROGEN-OXYGEN SVSTEN. 

c 

COMMON/ I NOEP /S.DSiX|DX,r(2S0) »0Y 

Common/ XT able /RWTaB ( 500) | XTABRWISOO) tLRWTAB, irwxp,crnx < gi , 

1 PETaB ( 500» , XTABPE (SOOl tLPFTAB, IPEXP.CPEX J A> , 

2 UETaBISOOIi LUETABt IUEXP.CUEXIB) , 

> XTOIJDXISOOI tLOunxT.IOUDXP 

COHMON/LTABLE/TWT aB ( I00)tXTARTW(|00»*LTWTAB,ITl»XP, 

I SMOTABI 108) .XTABMDI 100) , LMOT AB t I MDXP 

COMMON/STEPSZ/DXLIMISO) ,XLIMI50),LOXLIM,IOX, 

1 SICTAB(50).XTABS<(50) »LSkTAB,ISK. 

2 OXI 

COMMON/GEOM /RW(2) ,DR«DX (2) ,THW(Z) 

COMMON /7CALC/ ZET AO i 7 ET A , 2 E T A N , 7 ET aP , ZST aR I 3 I , OSZ t 2 ) i Y7ET A t /ZCaLC/ 

T YTZETA.YEOgE /ZCALC/ 

COMMON/WALLBC/TRALL .SHWALL ,HRALL*SM0*0,SMoW,SM0WN 

common /EOGEBC/ Tr0GE,SHCDGE.HE0GE*UEoGE,PE0GEB,AEEO6E,oUE0S0, /ED6EBC/ 

T DUEDS,DUEOSN,DPEOSN /eogebc/ 

COMMON/NORM AL /BLREE I I'REE.RHORPEt SMUREP, RE Y I RE 
common/mult /XNil)EN»PEN|SMON, YN 
COMMON/OPTION/ I REAL iLAMNR, INCOMP 
COMMON/PEGAS /GAMMAfEMOLRTiPRl 
C0MM0N/NEW2 / RHOEBtSMUCBiREYLiSXO 
C 

XNORMaXN/BLREE 

C 

C normalize R» vs. X TABLE AND INITIALIZE CORTOUR PROPERTIES, 

C 

DO 20 tPl.LRWTAB 
RWTABt IlaRMTABI I)*XNORM 
20 XTABRWII) ■ XTABRWI I I «XNORH 
IRMXPaO 

CALL XNTERP t X , RIM 2 ) , ORPOX « 2 I , I RWXP , Xj a BR«* , R«T AB • LRWT AB , CRWX , 

? IRPXP) 

ThW(2)-ATAN(DRWDX(2) ) 

C 

C P»AC)C VALUES EQUAL FORWARD VALUES INITIALLY, 

C 

RN( I )>RW(2) 

OrWOX < I ) aORWOX ( 2 ) 

THW( I )bTMWI2) 

C 

c normalise ste^si^e Table* and initialize stepsiZe o** 
c 

DO so lal.LSKTAB 
So XTABSk(I) ■ XTABSk ( I ) *TN0RM 
ISK«| 

DO 100 l•l,LOXLIM 
too XLIN(|) ■ XLIMI I IPXNORM 
lOXal 
DXaDXI 

OSaOX/COSITHWI I ) ) 
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oorton n n o n n r^nri onn non 


^er UP mootw vs* x table and iNiTtAUtze shq«n* 

DO 2S0 t>|«LM0TAB 
SmOTAB (|>•SHOTAB lI)•SMON 
250 XTABM0<n ■ XTA 8 M 0 ( n*XN0RM 
iMOXPaO 

CALL LCURV < X , XTAbPOiSMOTaBiLMOTAB. |M oXP,SM*PNI 
SmOWN>SmOWN/ (RHORt:F»URCP»ZETAO> 

rack ano average Values equal porwaro values initially* 

SHOWO«SNOWN 

SMOWaSHOWN 

^ET UP TW VS* X table ANO INITIALIZE TwaLL* 

00 300 la| iLTWTAB 
300 XTABTPII) a XTABTwI I » aXMORH 
ITPXP-0 

CALL LCURV ( X , XT A BTR , TWT A B iLTWT AB , I TWXP , TWALL » 
in IDEAL.GT.0IG0 TO 390 

mydrogen>oxygen equilibrium* 

PRESSURE Table has been input, set up pr vs. x table eor 
ISENTROPIC expansion* 

00 350 I»I.LPETAB 
PETABI I lapETABI I ) aPEN 
350 XTABPEin ■ X T ABPE ( I) • XNORM 
IPEXPaO 

CALL HOOOE TO 00 ISENTROPIC EXPANSION AT EDGE Of BOUNDARY LAYER 
TO OBTAIN EDGE VELOCITY TABLE UETaB. 

(PEOGE and TEOGE HAVE BEEN INPUT.) 

CALL HOOOE (2) 

set velocity Table length ano plags* ixtabpe is argument table 
POR UETAB.) 

LUETABaLPETAB 
lUCXPaO 
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n n • r, n n 


C 

C CALL HOORr TO EV*LU*Tt H**LL ■ SHW*LL« 

C 

CALL HORDE (3» 

GO TO SOO 
C 

c perfect gaS option. 

C CALL I60RE FOR PERFECT GAS OPTION TO ObTAIN SHWALL AND HWAUL. 

^390 CALL IGODE < TW ALL , SHWB . PEOGER , I , RUMMY | , DUMMY? , DuMMT3 » 

SH«ALL«SHWB/ < UREFpURFF » 

HWALLpSHWALL 

c 

C rALL IGOOE with TEoGE ANR PEOGE TO ORTaTN SHEOGC AND HEDGE, 
c (hedge is a constant.) 
c 

CALL IGODE ( TEOGE , SHEB .PEDGEB , I .RHOEB .SMUEB .OUMnY | ) 
SHED6C«SHEB/(UREF*UREF) 

HE06EpSMCD6E*UE0GE»UE06E/2. 

filVEN A PRESSURE TaBLE. GENERATE A VELOCITY TABLE* OR VICE VERSA. 

THF TEST for EOUALITy BETWEEN NON-INTeGERS MAT NOT BE MEANINGFUL. 
IFIPETABf I I.EO.O. )G0 TO «S0 

tm|p(gamma*i.) /gamma 
O o *10 I«I*LPETAB 
PETABI I )»PETAB I I )*PEN 
KTABPE( I )«XTABPE( I )»XN0RH 
ShEpSHFDGE»(PETAB ( I )/pE0GEB)**TH| 
mo UETABMI ■ S0RT(?.0»«HERGE - SMEU 
luetab-lpetab 
ipexppo 
IUEXP-0 
GO TO SOO 

HSo FNORM • UEN/UREF 

TH|a6AMMA/(GAMMA« I . ) 

PTOT • PEOGEB# (SHEDGE/HEDGE ) •• I-TM I I 
DO RGO IpIiLUETAB 
UETABI I IpUETABI I ) •FNORM 
XTABPEI I »«XTABPEI t )»XN0RH 
SHE-HEOGE-UET ABI l)»»2/2, 

PETABIII • PTOT*ISME/HEOGEI»*TM| 

IF MNCOMP .EO. I) PETAB(I) ■ PFOGEB ♦ 0.50*RNrEB» ( uE 0GE**2 - 
7 UETABt I )**2)*UREF**2 

rgq continue 

lpetab-luetab 

lUEXPaO 
IPEXP-0 

evaluate pedgebi opedsn, and ueose from Tables generated. 

^500 CALL XNTERP ( X , UE06E . OUMMy | , i UE XP , XT ABPE . §ET AB .LUET AB * CUEX , I UEXP ) 
C 

C ♦RITE VELOCITY TABlE UETAB VERSUS XTABPE. 

C 

WRITE (6*9000) 

9000 format ( IHI ) 
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non 


WRITE I6t90l0) (UCTAB( nt|a|,LUET*B) 

9010 format I25H VEUOCITT TABLE Gf NER ATE0//SX , i 3HE06E VELOCITY// 

} (Beis.wn 

WRITE U.9020» IXTABPCI I > , |»1 iLUETABI 
9q 20 f’ORMAT (/SXHRHAXIAL 0 I ST ANCE// < BE 1 5 .4 II 
C 

C USING UETab versus XT*bPEi GENERATE A T*bLC OF L|NE»R OUEOX VERSUS 

c X at midpoints. Include first *no last x. start at end of uetab* 

c 

IFILUETaB.GT. I IGO to 520 
LOUOXT-O 
UETABI I I ■ 0.0 
GO TO S60 

520 LOUOXT • LUETAB ♦ I 

XTOUOX (lOUOXT I aXTABPE ( LUETAB) 

UETAB(LOUOXT) ■ ( UET AS ( LUET AB ) • UET AB ( LUETIB- I) I /t XT ABPE ( LUET AB I 
i - XTABRElLUETAB-m 

LMl-LUETAB-l 
DO S50 I"t.LM| 

J«LUETA8*I-I 

XTOUOXI J»«0»5*< XTABPEIJ-I »*XTABPE( J> » 

550 UETABIJI ■ lUETABiJ) - UETABI J- | 11 / 1 XTABPE 1J» - XTABPE(J-Il) 
XTOUOXt I )>XTABPE( I ) 

UETABin • UETABI?) 

I0U0XP»0 

C 

c initialize velocity derivative. 
c 

540 CALL LCURV I X , XTOUOX , UET AB .LOUOXT , I OUOXP .OUEOX 1 
OuCDSN«OUEOX*COS(THWI2) ) 

rack and average Values equal forward values initially. 

DUEDSO-nUEDSN 
DuEDS»OijEOSN 

Call xnterp i x .peogeb.dpedx , ipexp,ktabpe,petab,lpetab,cpex, 

7 IPEXP) 

RETURN 
ENO 
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u u 


transpiration and film cooling BOUNOART LATfR program 
initialization and control ROUTINf 
changes to tfcou 


c 


^Q|ifMON/nEPENO/Ul?SOi3* iHI 250»3I t*LPHA(250»3»2) tRHOV(2&OI •SHI250«31 
COMMON/INOEP /S t OS * X • OX » T ( 2SO > »OT 

COMMON/RROP /RHO(250t3> iSMU(250*3I |PR(250*3> »BtEI250»3I * 

SHI I 2SOi2 ,<•) .SC I I 2SOi2.AI .TI290.3) , A> I250> 


COMMON/TPROP /EPS(250.3).PRTI 250.31, BlETI250.3» 

common /YTABLE/ vt IL I 250 * .BGP I 250» .R'’PRI 2S0> . ITT ILP i I VT ILF , 

] CrTlLIA) 

CoMMON/M*TRX / a ( 2S0 . 3 > » ® * 2S0 I 

COMMON/XTABLE/RWTaBC500>.*TA8R»HS00> .LRWT aB , IR*XP,CRI*X(aJ, 

1 PET a6 I 500) .XT ABPE (500) .LPETaB. IPE lP.CPEXI 6 > . 

? UETaB(500>. LUFTaB. IUCXP.CUEX(A) , 

, XTOUDX (500» .LOUOXT , lOUDXP 

COMMON/LTABLE/TWTaB( I 00 ), XT ARTAK ) 00 ) .LTAIT AB , I TAlxP , 

7 smotabi ioo» .xtarmdc iooi .lmotab. impxp 

COMMON/STEPSZ/OXLIMISO) , XL I M ( SO > . LOXL I M , I p X , 

7 SKTaB(50) ,XTABSK|50) .lsktab.isk, 

2 ox I 

COMMON/EFVEC /E( 2501 .P<250> 

CoHHON/S IGM AS/SI G l ( 3) .SIG2( 3 I ,SIG3( 31 .SIGRI 3l .SIG50 ) .S IG5S(3) 
COMHON/GEOM /RAM 2 I .DRArDX(2) ,THAM2l 

COMMON /ZCALC/ 2ETA0,rETA,ZETAN,ZETAP,2STARf3) ,052(2) .YZETA, 

7 YTzETA , YEO fiE 

COMMON/AtALLBC/TAIALL .SHAIALL .HAIALL ,SMO»»0,SMOAr,SMOAfN 
common /FOGEBC/ TEOGE.SHFoGE.HEOGE.UEOGE.PEOGEB.AFCdgE.oUEOSO, 

7 OUEDS,OUEOSN,OPEOSN 

COMMON/NORM AL/BL RE p .I'lEF .RMORFF .SMUREF. RE Y INF 
COMMON/mulT /XN.IJEN.PEN.SMON.YN 

common /GPARAM/ DLSTAR.THrTl.TAUR.TAHl.BCF.BOAl.sTAN.SNTGRL. 

7 SOA(OS,SOAlft 

common/const /SINiT,XINIT,XmaX,DFLTAI,SN|,SH2,Sn3.EPSLN1 .EPSLN2, 

I EPSlN3,C0NWR6,020Y,0HOY,0OVS0 

common /title/ TITLE(|3) 

CoMMON/COUNT /NY ,nYI .NY2.NY3, jo. JN, jA.nEL.NELI , NSP , NM A X . NY I 
COMMON/OPT ION/ IDEAL .LAMNR , 1 NCOMP 


common/statn / istatn.max I t , I ter 

COMMON/PRNTCT/NSPRNT .NLRRNT , ISPRNT , ILPRNT .LNSPPg.LINESR 
COMMON/SUM ART/sum »RY (15, 30 ) .NREC.NSTA, I ST a, N VaR, I drum, last 
common/ t DEBUG/ I debug I 3 ) , KMODMP , (CENDmP 

COMMON /inprof/ UPROF(SO) , YBYNU(50I .LUPROF.CUYX(G) ,HPR0F(50> . 

YrYNMISO’ ,LHPR0F,CMYX(A) 

C0MM0N/PF6AS /gamma .FMOLWT ,PRI 


COMMON/NEAfI /ALFAI|S,TLE*IS 
C0MM0N/NEAI2 / RHOFB.SMUEB.REYL.SXO 
C0MM0N/NEAI3 /AFTrNS.PL AAI 
COMMON/NEATS /lYPR 

C0MM0N/NEAI7 /GPO.PAMB. I NT OK , 2 ET AP I 
COMMON/NEAlB /RSTAR.RSTPR.XSTAR.DLSTO, 


OLSTTM 


COMMON/NEArV /lYEO 

COMMON/NEWIO /APROF(SO).TBYNA(50).LAPROF.IAVP.CaTX(&),AF*IALL 
COMHON/NEAfll /J2 D,UEK.RhOEK 
COMMON/RSTART / IRSRD . IRSAIR, I T APE 
COMMON /AL/ INSTAT.EPSLIN 


/YTaBLE/ 

/YTaBLE/ 


/zcalc/ 

/ZCALC/ 

/EOGEBC/ 

/EOGEBC/ 


/GPaRAM/ 

/GPaRAM/ 


/title/ 


/ INPROF/ 
/INPROF/ 
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u u u 


COMMON /INPUT/ C<‘*.30) , IP0LY.ITHePM,MT(«*,30» .NPPOO.NSPEC. /INPUT/ 

I PHAZOOI ,T| (30>>T?«30) /INPUT/ 

COMMON /COOL/ ALTaBI 100) iCAxU) ,CCmA» ,C0ErCL,CPL,CPLTABC2O» I /COOL/ 

1 CPSUMCiCRX (A ) ,CTHX 14) ,CTL* (4) »CZX|6 ) ,0ELXBA,0I ATUB t /COOL/ 

2 OX I ,MS|HL , I AX I ICOOL » ICX, IPX, ItHXj iTLXilTZTAB* IZX , /COOL/ 

3 HASSL »PP ANOL •ONI >PAMOL«RAMO«»RAMTaB C 20) •RCT ,SQNOSI • /COOL/ 

•• SOPf fSUMOWl ,TAR,TCMPRL*ThICK,THIT» 8I 100) .TLOtTLI f /COOL/ 

5 TL2|TLCA»TLTAB(|00) ,TUBEN,T«62*TPqCA>TRL,TZTAB(20) • /COOL/ 

A ZMVTABI20) iZMYUL.ITP0StTWL2,TA«lM,$TANRE /COOL/ 

Re*l massl /cool/ 


COMMON /OMORI/ CUU ( 260 • 3 ) . CU V I 2SQ . 3 ) • C V V ( 2S0 1 3 ) , CP* ( 2Sq , 3 ) • 0 AM A , 2K /OmORI/ 
C 

Data blank. pic/ah .s* i*«I592AB3/ 

.OIMCNSION CPITAR(SOO) iPITabCSOO) tROlTAB(SoO) tTlTABlSOO) ,V|T aB(SOO) 

1 |XA( 1500) iXITABIBOO) »YA< 1500) .’YlTABISoO) ,fMTABl500) 

EQUIVALENCE (CPITaB.ShMI.i.S)), f P I T Ag , RET AB ) » ( pO I T AB • SM I I | , I . 5 ) ) . 

) fTITAB,SHl(l,|,2n,IVITAB,SMHl,|,«»T),(XlTAB.XTABRP), 

2 ( YITib.RWTaB) , (ZmTaB.SHI ( I , 1 , I )T,IPE0eE»PED6EB) , 

3 « XA.SCI ) . CSC! C I , I ,*») ,YA) 

C 

namelist 

1 

2 
3 
M 
5 
A 
7 
a 

? 

A 
K 
I 
C 

NaMELIST/TOKINP/Xj TAB.Y tT*8,PiTAB,2MT*B,TiTAB,CPlTXB,VITAB.R0lTAB 
C 

C SET CONSTANTS. 

C 

NMAX>250 
LNSPPG * 58 
ITHERM ■ o 
JO«l 
JN«2 
JA«3 

ALEPiSal. 

TLEPISsi. 

initialize summary table FLAGS. COUNTERS. aNB CONSTANTS, 

NREC-0 
LAST-0 
NSTA-13 
ISTA-0 
NVAR > 30 

IORUM-17 
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/data/ afedge.aftrns. appall. altab.aprof.blref.coefcl. /Data/ 

CnNVRG.CPLTAB.DELTAl.DXI.nXLlM.EPSLIN.EPSLNI. /DaTA/ 

EPSLN2.FPSLN3.PMOL«T.6aMMa .GPO.hPROF. I COOL. IDEAL . /DaTA/ 
I DEBUG. INCOMP. inSTaT. intDK. IPOLy. IRSRO. IRS*R. /DaTA/ 

ITHERM. ITZTaB. I YEO. 1Ypr.J20.LAMmR,LaPR0F,LDXLIM. /DaTA/ 

lhprof.lmdtab.lpetab.lpwtab.lsktab.ltwtab.luetab. /Data/ 

LUPROF .massl .MAX IT .NLPRNT ;nSPRNT .N?I .PamB.PEOGE. /DaTA/ 


pen.pet ab .plap.pri .ramow.ramTab;rhoek .rhoref .rwtab /Data/ 
.siNiT . sktab.smom,smotab.smurep.sn3,tedge,thitab. /Data/ 
tltab.tuben.twtab.tztab.ueoge.uek.Oen.ueTab.uprop. /Data/ 
uref.xinit .xlim.xmax.xn.xstaR.xtabmd.xtabpe.xtabr* /Data/ 

.xTABSK.XTABTP.YBYNA.YBYNH.YBYNll.YNjZETAPl.ZNYTAB. /OaTA/ 
GAMA.7K /Data/ 


u u u 


c tNfTULIfC restart flags. 

c 

ITAPE-IA 
REWIND ITAPE 
1RSR0>0 
I rswR>0 
C 

C sET nominal values. 

c 

DO IS l•I.IO 


15 TiTlE«I» “ blank 

BlREE-I. 

uref"I » 

RhoR^E*! • 
SMUREF.l , 

XN>I . 

Vn»I . 

PEN«I . 

SMDN«I . 

UEN»I . 

PR|*0. 

PLAW-I . 

PAMB ■ 0.0 

XSTAR ■ 0.0 

AFWALL»-PSS’» 

GAMA B O.ISO 

ZK ■ O.AO 

EPSLIN ■ O.OPO 

INSTAT ■ ?99? 

IPOLV • 0 

CONVRGB.OOS 

EPSLN|«,03 

EPSLN2B.03 

EPSLN3«»03 

IDEALBl 

LAMNRbO 

INT0F«0 

NSPRNT»9999 

NLPRNTbSO 

J20»l 

lYPRBI 

lYEO-R 

NEL"2 

NSP»I 

MAXITbI 

rEAO input data. 


non o r» o o r> o o r% r% r\ n 


999 READ <S,9|00) TITLE 
9100 EORmAT (|3AA) 

READ IS, DATA) 

SONI • 0*0 
SQNOSI > 0.0 
SUMO«! a 0*0 
ITP08 a I 
IZX a 0 
ICX ■ 0 
IRX a 0 
lAX a 0 
ITMX a 0 
ITLX a 0 

iF Rw, X, ano PE Tables are input from tok, read tokinp namelist, 
llNUSEO Totc tables aRE TEMPORARILY READ INTO SHI ARRAY, 

IF! INTDF.EQ.O) GO TO 20 

Read (s,tokinp) 

00 lA Ia|,LRWTAB 
lA XTABPEi I t a XTAARWl I ) 

DO IR U*l ,S 
OO 18 |a| , nMAX 
Shi ( 1,1 ,j)aQ, 

IP Shi 1 1 ,2, U) a 0,0 

pRiNT TFCBL INPUT qATA, 

20 CALL NLOUT 

pEao equilibrium cmemistry oata ano IN1TIALI2C storage in ooe, 

IPROGRAM PRESENTLY HANDLES HTOROGEN-Ox Y(?EN STSTfM ONLY,) 
IFII0EAL,E0,Q)CALL HOOOE (|) 

SET constants BASED ON INPUT. 

NELI*NEL-1 

• THF TEST for equality BCTREEN N0N-|NTEGERS MAY NOT BE MEANINGEUL, 
lF(<IOEAL.GT.O>.ANO.(PRI,EQ.O.))PR|a.72 
IFIAFRALL.LT.O.lAFRALLaAFTRNS 
XNORHaXN/BLREF 
XINITaXINITaXNORM 
SINITaSINI TaXNORM 
XMAXaXMAXaXNORM 
XSTARaXSTARaXNORM 

RSTPRal. 

REYINF a RHORCr*UREEaBLRCF/SHUREF 

UEOGEauCOGEaUEN/UREP 

PEOGEBaPEOGEBaPEN 

PAMBPPAMBapEN 
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c 

c tNITIALIZt X, S, AND 2 ET*. 

C 

X-XINIT 

S-SINIT 

C cHeCK IF this case is RESTARTFf' FROM A PREVIOUS CASt, IF SO, 
c reinitiauze tablfs and skip appropriate initialization. 

c 

if IIRSRO tLE. 0) GO TO 220 
CALL RDTAPE 
CALL TABLES 

UE06E-UINV, JN» 

Do 21 A J*l >2 
DO 2IA I ■ 1»NT 

U( I , J» •Oil » JNI 
H( I , J>«mI I » JN» 

CUUd.JI* CUUdtJNl 
cuvd.Ji* cuvd.JNi 
CVVd.JI* CVVd.JN) 

CWWd.JI* CRRd.JN) 

EPS* I * J* • CFS< I • JNl 
SHI I , JI»SHI 1 ,JN) 

ALPHAd,J»l)»*tPHI(I,JN,d 
214 ALFHAd,J,21 • ALPHAdtJN,2) 


60 TO 37 

220 ZCTAO • 0»83333333*DELTAI/BLRCF 
ZCTAN«7ETA0 


C 

C 

C 

C 


IF U 
IF 


OR Sh profile? Re«E input, 0 E^e 8 «INE Ze^aO r»»OH u PROFILE 
INcOMPReSSIbI-E or sh profile if compressible. 


IFILUPROF.EO.OIGO TO 270 
ipl INCOMP. EO.OIGO TO 2R0^ 

DO 235 K-I.LUPROF 

I»LUPR0F*|-K .. ^ . 

TMl**OSd UPROF I I I -UPROF I LUPROF d /UPROF I LUPROF I I 
IF ITMI .6E. O.OIOI 60 TO 233 
TM2 • TMI 

233 YBYNZ-YBYNUIdH-1 YBYNUd*! »-YBrNUd» I*(Tm2-0.0|»/ITM2-TM1 ) 

60 TO 2S0 


235 CONTINUE 

2R0 DO 2**5 K • I,LHPR0F 
I«LHPR0F*|-K 

TMl-ABSdHPROFID-HPROFrLHPROFn/HPROFILHPROFd 

IF iTMl . 6 E, 0«0I0) 60 TO 2R3 

TM2 ■ TMI 

2R3 YBYNZ»YRYNH(dlI-IYBYNH(lA|)*YBYNHdI)»dM2-0.0lI/dM2-TMII 

60 TO 250 
2 r 5 CONTINUE 

250 ZETAO ■ YN/BLREF»YBYN2 
2ETAN»2ETA0 
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c 

C sCT INITIAL ALPHA* FOR T-P EQUILIBRIUM CALCULATION, 

C 

APWALL«APROFl I » 

SET UP TABLES AND INITIALIZE X-OEPENOENT *ALL ANo EB6E CONDITIONS, 
290 CALL Tables 

XhaX>AMINI < XMaX.Xl IHILDXL IH),XTABSK(LSKTAR)I 
• THE TEST FOR EQUALITY BETWEEN NON-INTEGErs HaV NOT BE MEANINQFULt 
IFIZCTAPI ,EQ,0, )G0 TO 23 

zetap-zetapi 

Go TO 3B 
C 

C calculate INITIAL 2ETAP IF NOT INPUT, 

C 

23 RETL ■ RHOEB*UEOGE*UREr»BLREF/SMUEi 
IF IlAHNR ,lE, Q) go to 30 
SXO • REVL*ZETA0«*2«0,Q<t0 
ZETAP»?,B*SQRTI I . / « REYL»SXO> I 
60 TO 3S 

30 SXO«» I0ELTAi/(BLReP»* 37) t ••S*RETL > •• • 2S 
ZETAP«,B 33»«37*,8/I (RETL«SX0»**«2» 

35 ZSTaRIII ■ ZETAO - DS*ZCTAP 
OsZ( I l-OS 
C 

C SET UP ARRAYS OF Y, YTIL.BGP. ANO B6PP AT EACH MESH POINT. 

C 

CALL GFUNC 
020Y*0.5/OY 
090Y»0.25/0Y 
OOYSO«|,/(OY*OY) 

C 

C initialize U, H, Sh. ALPHAI, ANO RHOV PROFILES ACROSS THE BOUNDARY 

c layer. 

C 

CALL PROFIL 
WRITE! A, 31 ) 

31 Format (ihi .33X,2hno. i tx, i hu. t 9 x • ihk, isx,3hcps/) 

00 32 I«I,NY 

Al *0(1 ,JN)/U(NY, JN) 

A2 > CUUI I • JN) /U( NY , JN I ••2 
A3 ■ EPS! I , JN)*SHuREF 

32 WRITE !A,3A) I.AI,A2tA3 

3A FORMAT i33X.|3t‘tX,IP3E20*7) 

C 

C calculate laminar transport ANO thermodynamic properties at each 

C MESH POINT. !BLE CONSTANT FOR NOR) 

c 

37 DO SO I ■ I|NY 
SO BLEII.JN) • alewis 

if! ideal. GT.0)G0 to 50 
CALL HOOOE !S) 

GO TO 70 
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C 

c 

5 n 


60 


ion 


preset quantities which are COMSTANT for ideal gaS ortion. 


00 60 I ■ I »NY 


alpha C I . JN» I » ■ I t 

SHU I ,jN,n«i . 

SCHItJH.I) ■ 1*0 
00 100 I"I|NY 

SMB»SM< I ,JN)«URfP»UPEF 

CALL I600E ( T ( I , JH ) ,SHB ,PEDGEB |0 fPHOB ,SMUR , 

RHOI I tJH)«RHOB/RHnREF 
SMlMltJHt • SmUB/SMUREF 


RR( I ,JN) ) 


oRESET turbulent OuANTITlESt 


70 00 »0 I • I*NT 

F»I)» RGP«I)/«ZETAN»2ETAN»RETINFI 
E(I) • RHO t I , JN ) •BGP • 1 > »ZET AP» YT !H I • /2ET*N 

PRT< I * JNMl . 

8ft BlET«I*JN) ■ 1*0 

calculate turbulent transport properties at each mesh point. 

IF I LAHNR.EO. 0 ) GO TO 81 
00 62 I'l.NV 
B2 EPSIt.UN) ■ 0.0 
GO TO 83 
Bi call EOOY 


I.0VE FORWARO TO BACK VALUES. 


83 


110 


120 


00 120 I • 1 .NY 
RmOI I . JO*"RhOI I t JN> 

SmUI 1 . jO**SmU« I » JH* 

PRl I » j0**PR* I » JN> 

BlLIJ .JO**BlE« i»jn’ . 

COU(I,JO» • CUUII.JN) 

cuvl I » JO) • cuvl I , JN) 

Cvvl I .JO) ■ Cvvl I iJN) 

CWNI I » JO) • CR*« I , JN) 

00 MO ISP-1. NSP 

SHI 1 1 » JO,ISP)-SHI II , JN, ISP) 

SC 1 1 I .JO. ISP ) ■ SCIM.JN.ISP) 
T( I ,JO)aTI I , JN) 

EPS! I .JOIaEPSl I • JN) 

PRTI I , JO)-PRTI I . JN) 

BlCTM.JO) ■ BLET(I.JN) 
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calculate gross bounoart Layer paraheters aT s • sinit. 

IF< |RSR0.GT,0)RH0(NYi JA )»RHO(NY ,JN» 

CALL PARAM5 

PRINT at initial station# 

IF« IRSRO.EO.O) IST*TN-0 
ISPRNT-0 
ILPRNT-0 
CALL PRINT 

having completed all initialization, solve tme boundary layer from 

X ■ XINIT TO X ■ XMAX. 

CALL EXECUT 

IFIRSTAR.GT.O. »RRITE IA|T800I RSTPR 
9800 FORMAT I////R2H ThROAT RADIUS CORRECTED FOR OISRLACEHENT , 

7 IlMTHICKNfSS •,|PE|R#7) 

WRITE U,330) 

330 format « ///27X iTShTABLE Of CORRECTED CONTOUR POINTS NORMALIZED AND 

1 DIMENSIONAL ANO DELTA STAR/// | 7 X , I RHX I NORMAL I ZED >« I I X • 

2 IRHV (NORMALIZED) , ax, I7MDELTA STAR ( FEET ) , | 3X , | I MX (IN FEET), 

3 IRX.IIMY (IN FEET)//) 

M • 0 

MAP • 0 

REWIND lORUM 

DO 300 K > I iNREC 

READ dORUM) NST, ( (SUMARYI I , J» , J ■ t,NVARl, I ■ l»NST) 

DO 300 L • I iNST 
XCCP ■ SUMARY(L,20)/*»STRR 
YCCP • SUMARYILi IO)/PSTPR 
IF (SUMARY(LiZO) .LT. XSTARI GO TO 310 
MAP • map ♦ I 
XA(MAP) • XCCP 
Ya(MAP) • YCCP 
310 M • M ♦ I 

300 write (6,3'*0» M,XCCP,YCCP,SUMARVILiB) ,SUMARY(L.20) ,SUMARY(L, 10) 

3R0 FORMAT ( I S , | X , | PSE 25 • 8 > 

the test for equality between NON-INTEGERS may not be meaningful. 

IF(RH0EK#E0#0# )RH0EX"RHQ(NY, JN)»RH0REF 
• The test for equality between NON-INTEgCRS may not be meaningful# 

IFIUCK.EO.O# )UEK»U(NY, JN)«OREF 

PARCN«THETA-8LREF«SNTGRL*RH0REF*UREF/(RH0ER*UEtC«RW(f )**J20) 

TM|BRHOEK*UEK*UEr 

BRKT«TM1 •PARCN-|PC06EB-RAMB)*0LSTAR 

ThlOSS«( 2#*PIE*RW(2)«BLREF)*»J2O*C0S(THW(2) )*BRrT 

write (A#9900) TH(.0SS 

9900 FORMAT (////IRH TwRUST LOSS •#|PE|H#7) 

IF (IPOLY #EQ# 0) STOP 
CALL LESQAR (XA.YAfMAP) 

End 


163 - 



SUe«*OUTtNC TFCALC 
CT^CAlC PCRfORM « 


FORM *"siNr,LE TEMPERATURE-PRCSSURC CALCULATION. 

COHMON /POINTS/ HSUP < I 3 » • SSUM ( I 3 » , C PR « I 3 J , OL VTP I I 3 ) . OL VPT I I 3 » . 

64PP»5<I3J,P(13> ,t;pRPI 131 ,«H< I 3 > .SONVEL < 1 3 » » 
TtT( I 3> 


1 

2 

COMMON /MISC/ 

T 

2 

5 

44 

COMMON /fNDX/ 

} 

PPaP ( I I 


♦ ,DLVTPC 13) *OtVPT< 13» ( 

6AMMA5«^3)»P«!3»* T #PMp f | 3 ) iWMH 3 ) fSONVEL <1 31 t 
TTT« I 3> 

ENN,SUMN|TT,SOf ATOM(3»10«3) tULMT( I5) fBO( I5l t 
BOP< lSt2) •^M,TLO«(,TMIOiTH|GHfPPf CpSUM,OF lEQPATi 
HSU«UfHPP<2) ,RM0(2I »VMlNl2),VPLSC2)f)^PC2), 

Nl^nr ( |5*5) |ANUH( ts»s) *PECWTf |5)fEwTH(|5),rA7(|S)» 
RTFhP^ 151 .fox C IS) ,OENSC | 5 )#TLN 

CONVa*^^»M^*SPtMOLrS iNP.NPt.t tNS.KMAT * fMAT i |0l »NC» 
jSOt »JtlO*1C.tQ2 


TT • T 
RPI I )«OF 
WPl 2 )«l • 

SUM»RPI I )*WPl 2) 

Do 200 !■! iL 

200 0011) • f RP ( I 1 •POP C I 1 1 ) ♦ RP < 2 1 •POP I I #2 ) I /SUM 

CAUL EOURRM 

tme^test^fop equality between non*integers may not be meaningful* 

ir CTT tEQ* 0 . 0 ) RETURN 

CALL ANSWER 

return 

END 


A 2 
/POINTS/ 
/POINTS/ 
/POINTS/ 
/MiSC/ 
/MiSC/ 
/MISC/ 
/MISC/ 
/MISC/ 
/INDX/ 
/iNOX/ 

A I A 


A 22 


A SO- 
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SUBROUTINE TRIM (AiX»B»N,*NN> 

C 

01 MENS ION A(NN|3) , AA( 2S0> tB(NN) »PB<2Sol ,X (NNl 
C 

C rORNARO elimination 

c 

AA( I >BAI I ,31/All |2) 

BB( I laBI I l/A( I ,21 
00 I |a2,N 

AAA>A(I,2)-AA|I>I)*AI|,I) 

AA< I )-A( I ,31/AAA 

1 BB( I )*(B( I l-BBI I«|)*A(I,m/AAA 
C 

C BACK substitution 

c 

X(N)>BB(N) 

00 2 1-2, N 

J-N-l4| 

2 X( J)-BB( J)*X( J«l ) *AA( J) 

RETURN 

ENO 


SUBROUTINE VISCX 

cviscx routine to calculate viscosity ano pranotl number for 

HY0R06EN-0X YfiFN SYSTEM r»ON MIXTURE FORMULAS* THIS SUBROUTINE 
replaces OOE sUBROUTIhE VISCX. 

VISCOSITIES ILSM/FT-SEC) STOREO In V|SCE(|)« 
pranotl number STOREO IN PRllT* 

COMMON /INOX/ CONvG,TP,HP,SP,MOLES;NP,NPT,L,NS,KMATi IMAT, lai ,NC, 
i JSOL , JLIQ, 1C • 102 

COMMON /POINTS/ MSUM ( | 3 > , SSUM ( I 3 I , CPR ( I 3 > , OL VTP (I 3 I i OL VPT I | 3 > , 


7 6AMMASM3),P(I3) ,T,PPP( I 31 ,NMI m ,S0NVEL«I 3 » , 

2 TtTI|3» 

COMMON/SPEC ES/COEFI 2,7,30) , S ( 30 | • EN ( 3q , | 3 , ,0Um2(7A0> 

COMMON /ViScXo/ VjSCE< tPRi I3» 

CoMMON/CPi /CPi ( 30) ,CpBAR 
C 

.dimension eXO**) •EMU<B) ,FMRT(6» ,Ph| CA,*) ,SMUh(5q) ,SmUh2IS0I , 

I $mUh 20(SO) •SMUfl(SO) ,S mUOh<^0) ,SmU02(So) ,TTAB(S0) 

c 

C SPECIES MOLECULAR REISHTS STOREO IN FMrt In SAME ORDER AS THERMO 

C DATA, namely (I) H 12) M2 13) H20 |r) 0 (5) OH U) 02 

DATA (FMWT(II,I-|,&)/|*008,2*0IA, 18*016,16.000 *17*000, 32*000^ 


/iNOX/ 

/ iNOX/ 
/POINTS/ 


/points/ 

/POINTS/ 

/VISCXO/ 
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c 


c 


c 


c 


0aT 4 fTTAeUl>.SMUH< I),SHUH2Cn .5MUH2n(|),SHU0<n,5MLt0H( !USMU02U) 

• I 1 10) / 

lOOtt 3H#3E-6. 37f8E-6t M0*0P-6, 70*0E-6> 7fltlfc-6i 76,6E-6» 

200.. 77.lf-6.l35.IC-A.IMH.2E-6.l-7.9C-6, 

300., 7H.9E-6, 89.2C-6, •8«,6C-6.19A.7C^6,206.MC-6, 

*•00. . 90.3E-6, I05.6E-6, l‘t3.2f-6,23M.‘*C-6»2*«l»*'E-6.256.5E-6, 



1000 ., I63.8E-6, l97.«E-6,35fl.7E-6,-39. lr-6.‘**«3.‘*C*6,H80.6C-6/ 


D*TA (TT»B< H ,SMUh( I > ,SMUH2( I ) ,S**UH20« I 1 ,SHUO( I » .SHMOHl I ) ,SmU021 I » 

• fl*lli20)^ 

i ||oo,,i79.2E-6,2l0.5E*6.393.2C-Si‘467ilE-6.**7|.5C»6.5|1.2E-6. 

9 |200.,18*I.3E-6,222.8E*6.M?6.7C“6.‘*9H.0C“6.**M9.1E-6.S**0.6C-6. 

3 |300.,|9*l.0E-6,23M»7C-6.*t59,3E-6.520i0C-6.526.3e-6.569,lE-6. 

i |<l00..203»5E-6.2**6.2E*6.‘»9i.0E-6.5H6.3E-6.552*5f»6.596.8E-6. 

5 1500. •2I2.«E-6,267,5E-6,52| .7E-6,570.2C-*»577.9E6A,42**»0C-6, 

4 l800..22|,«E-6,26®.5C-6,55! .6E-6,59*».7c-4»602.7C*6,650.9C-6, 

7 1 700. . 230»7E-6 ,279.2E»6.58o.7C-6.6i9. 3C*6 .627 . OC-6 , 677 .8C-6 . 

8 1 800. ,239.3E-6,289.7E-6,609.0C-6,6H2.9£-6.65e»71-6,703.7C“6, 

9 1900. ,2*«7.8E-6,300»0E-6,6 36.7r-6,6«,8. lc-*,67 3.9C-6,7 78.0C-6. 

• 2000. . 256. 2E-6.3I0»IC-6|663.7C-6.688.8£«6.696.7E-6.753.8E-6/ 

OaT» <TTABH » ,SMUh< n .SMUH2t ! ) , S mUh20 1 | ) , SHUO I 1 » , SMOOH «| » . SMU02 ( I) 

• .I-21.30I/ , . 

1 2100..26*I.CE-6,320»lE-6,69o.lE-4,7iiiOC-6.7l9.lE»6.778.2E-6. 

2 2200. .272»**E-6.327.8C-6.716.0C-6.7 32.9C»4.7*<i.OC-6.802.1E-6. 

3 2300. ,28o. 3E-6,339.*«E*6 ,7*» I . 3E-6 . 759 * 3C-i • 76 2.6C*6 . 8 25.6C-6 » 

9 2*«00. .288. lE-6,3*t8.9C*6,7 66.2E-6,7 75i5C-6.78 3.9C*6,e98.7C-6, 

5 7500. .285. 8E-6, 358. 2C-6,79o.5C-6, 796. 3E-6. 809. 91.8, 871 .5C-6. 

6 2600. .3o 3.9E-6,367.3E-6,8!9.5C-6,8 1 6 * 8E-6 . 825 . 5E-6 . 89*l.0E-6 • 

7 2700..3l0»8E-6,376.ME-6.83e.0C-6,837.0C-6.895.9E-6.9|6.1E-6. 

9 7e00..318.2E-6,386.3C-6.86|.tC-6.856.9F-6.86A.0t«6.937.9C-6. 

9 2800. ,325.5E-6,399. 1 E-6 . 883 . 8C-6 . -76 . 6C-6 .885. 8£i6 . 959 . 5E“6 . 

• 3000. ,332.7E-6,902.8E'»6,9o6.IC-6,8?6i 1 C-6 .805. **E»6 . 880. 7C-6/ 

0*T* ITT ABC I 1 ,SMUm( n .SMUH2I I » .SMUH201 1 1 , SMUO ( 1 » . SMUOH ( 1 ) ,SmU02» I 1 

• .t-31.H0>/ . , ^ 

I 3100..338.8E-6,9II.5E-6.928.0C-6.9i5.3C-6.829.BC-6.1001.C-6. 

t 3200. .396. 9E-6,*» 20. OC-6. 999. 6E-6, 939. 2C-6. 89 3. 9C-6. 1022. E-6, 


3 3300..353. 8E-6,9 2e.9C-6. 87 1 . IC-6, 853. Ot-8. 862. 81-6. 1093. C-6. 

9 3900. ,360»7E-6,936.7E-6,992.2C-6,871 UC-6,881 .5C*6, I063.C-6. 

5 3500. .367,5e-6,999.8c-6, I0I3.C-6,888,8£-6, IOoO.E-6. I083.C-6. 

A 3600. .379.2E-6.953* lC-6. I033.F-6. l008.{-6. 10|8.|*6, 1 l03.C*6. 

7 3700* .380»8E-6,961 ,2E*6, 1053,C-6, l026,C-6. 1036.C.6. 1 123.C-6. 

8 3800* .387,5E-6,968,2C*6, I073.C-6. I093.C-6. I059;c«6. 1 192.C-6. 

9 3900. .389. 1 C-6, 977. 1C*6. 1 083. C-6. 1061 .C-6. 1072. £96. 1 |6l .C-6. 

• 9000. .900*6C-6,985.0E-6. I 1 1 2 . C-6 . I ©78 . £-6 . 1 080. £-6 . H 8 1 . C-6/ 


166 - 


non n o rv r» r% ^ r\ onn 


c 

data ITTABt n iSMUhI I ) «SHUH2( I ) «S‘ 1 UH 20 ( 1 1 ySMUOl I ) •SHUOHt | ) ,SmU02( I ) 

1 <»IOO* t<«07*0EoA,<«9 2*7e«Ail l09A«e-A» I Io7*E;»A« 

2 <I200* f H|3*<4E«A ,SOO*SE*A|| |50*E>6 1 1 | I 3 t E*A 1 1 I 2<t .C-6 * I 2 1 8 • E-6 • 

3 «*300t *««|9.7E-A,508. IC-A.I I49»E-A» I 130»e-6»l 1**2»E-A. I237t€-*i 

H <t<«00* f 924(0e-4,5lSt7E«4tt I88«C*4« I |97*E-4» I IS9*E«4 • I 2SS«E*4 i 

s 9S00* •932*2E<’4,523t2E«4|l204*E-4t I I 49 • e-t 1 1 I 74*C4A • I 27<t • E*4 • 

A 9400. •938*ME*4 ,S30«7E«4tl229*E>4, I lS0«e-4« I I92»C«4» I292*E'4 i 
7 9700. •999»SE~4|S38f IE-4tt293*E-4» i |97*E-4f I2e9;c*4> |3lO«E'>4t 

A 9800* •9SQ*4E*4,S9S*6E<»4i! 24I •E«4t 121 3»E*4 t l224»E*4il328«E~4i 
9 9900* *954. 4E-4, 55 2* 8E -4, 1278. F-4, 1229, e-4. 1292. e-4, 1394. E-4 I 

• 5000. • 942. 4E-4, 540* 0E*4, 1296. E*4, 1294. E*>4. I 2S8.E44, 1343. E”4/ 

C 

00 100 !«I,NPT 

OBTAIN SPECIES VISCOSITIES FROM TABLES, 


I X«0 

CALL LCURV 
CALL LCURV 
CALL LCURV 
CALL LCURV 
CALL LCURV 
CALL LCURV 


ITTTI I ) ,TTA8,SM0H,50.tX,EMUI I I I 
•TTTI I ) ,TTA8,SMUH2,50 ,IX,EmuI 2) I 
ITTTI I ) •TTAB|SMUH20.S0.tX.rMUt3l) 
I TTTI I ) ,TTAB,SMUO,SO, IX.EMUI9I » 
ITTTI I ) ,TTAB,SMUOH,50 .IX,EmuI 5I I 
ITTTI I) |TTAe|SMU02.50.IX,EHUI4l) 


OBTAIN SPECIES CP AND CPBAR, CONVERT CP-S TO CAL/6M40E6 K, 

CALL CPSPEC ITTTin.I) 

Do 20 J>l ,NS 
CPU JI-CPI IJI/FMRTI J> 
iFlENIJ.n.LT.I.E-IOIENIJ.Dal.E-IO 
2C CONTINUE 


CALCULATE VISCOSITy EMUBAR (IN POISES). COROUCTIVITT E«ORARi ANQ 
PRAmOTL number pro from MIXTURE FORMULAS, 


EMUBARaQ, 

EKDBARaO. 

00 90 II-I.NS 
Tm»0» 

Do 50 JJ“1 iNS 
IFIJJ.EQ. I I 100 TO SO 

PHI I I I ,JJ)a< I , /SORT 18,* I 1 ..FMWTI I I I/FmRTI JJ) ) Ma 
7 I I .♦SORT I EMU I I I ) /EHUIJJ) » • I FMRT I J J ) /FMWT II I ) ) • aO , 2 s ) • • 2 • 
THaTMa^NIJJtDaPHMIItJJl/ENIII.I) 

50 CONTINUE 
TM|al ,.TM 
Tm2bI .* I ,045*TM 

emubar*emuba8*emu< 1 1 ) /tmi 

EKOIftl ■ EhUI I I ) *I 1 •3275oaCR| I 1 I ) a q.85494990625/FmWTI II > ) 
HO EKOBAR a EK06AR a CKD(ltl/TM2 

store answers* 

VISCEI I)«EMUBaR*C .04722 
100 PRil) ■ EmU 8 AR*CPBAR/EkOB AR 
RETURN 
END 
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c 

c 


SUBROUTINE XNTERP , X , y , t P . I X | N , X *R i , t ar . C AR . 1 pos ) 

OfMtNSION CfM,CARi6).XA»nAR),Xt<R>,YARUAR».t!«R) 


20 T 


IXO-IXIN 
jxMAX-I AR-I 
1 X« 1 POS 

IXMAX2-IXMAX-2 

ir (!X .6E* lAR) 

IF ( IXHAX2 •GT* 0) 
IF ( t XMAX *GT * 0 > 
1X060 • 0 
YsYARI I ) 


IX • IXHAX2 
60 TO 202 
GO TO 207 


YP»0» 

GO TO 105 

IX*2 

IXO 

IX0G0>0 


XNTE P 
xnte 5 

XNTe t> 

xnte 7 


xnte II 
xnte 12 
xnte 13 
xnte ip 
xnte is 
xnte U 


202 
I I 

12 


|3 

20 


22 

23 


2S 

27 

28 
203 

20 P 

20S 


I60>l 


60 TO 27 

00 II I • 1*8 
C( I l•CARl I ) 


IF(IXO) 12*12(13 
IF IRST-I 
1X0»IXMAX*2 
IX-I 

IFIIX) 1?*I2*20 

IF IX .6E. XARMXJ) go to 25 
lx - IX - I 

IFIIX) 22|22(20 _ 

WRITE IA.23I X.XARl n . I AR.XARI I AR) . IX, IXM*X,Y aRI I ) . I aR.YARI ! A ^ 

format I//|X,27HXmTERP OUT OF RANGE.*. X • , I PE | 5 . B ^ 3 X , GHX I I ) • 

1 E |5.« * 3X ,2HX I * I 3 , 3M ) ■ , E 1 5 . 8 / 2 3X , HH I x ■ , 1 3 , 3X , 7H I XM A X •*I3,3X, 

2 AHYII) -,EI5.B,3x,2HYI ,13,3H) -,EI5.R//I 

CALL SUMTAB 

CALL EXIT 

IF IX .LE* XARIlX^tll 60 TO 27 
IX • IX ♦ 1 

iFltX'lXMAX) 25«2 Si22 
00 28 I>I*P 


H»IX-2*I 
X| ( I l■XAR^ I I ) 

YI ( I )«YARI I I » 

IFIIXHAX2) 203f20P*20S 

VP»I YI I2I-YI I |M/(XII 2 l-XIIin 

Y.Yl I n*YP*IX-Xl III) 


60 TO 105 

IFIIX-IXO) P5,I00*P5 
0X2 • X - XI 12) 
0X32*XII3)-XI12) 


xnte 17 
XNTe 18 

XNTE 21 

xnte 22 

XNTe 23 
xnte 2P 
XNTE 25 
xnte 2 A 


xnte 29 


xnte 37 
xnte ^8 

xnte '39 

xnte IfO 

XNTE PI 
xnte P2 
XNTE P3 

xnte PP 
XNTe P5 
XNTe pa 

xnte P9 
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30 

irUX-IXO) <«0,3li6t] 

XMTC 

so 

31 

tX060«0 . 

xntc 

SI 


irUX'lt 32,32»33 

xnte 

S2 

32 

I 60»»l 

xmte 

S3 

33 

60 TO 101 

IP ttX tLT* IXHAX) GO TO 3S 
IP IIPIRST .EQ* □> 60 TO 3*1 
IPIRST * 0 

XNTe 

5M 


I60a| 

XNTE 

S8 


60 TO m 

XNTE 

S9 

3*» 

I60«l 

xnte 

60 


60 TO too 

xnte 

61 

3S 

iGOaO 

xnte 

62 


60 TO 100 

xnte 

63 

MO 

IX060>-| 

IF 1 IX .lT. IXO • II GO TO <«2 
CM) • C( 1 I 

xnte 

6M 


CI5)»CI2) 

XNTe 

67 


CI«|aC( 3) 

xnte 

68 


60 TO «»3 

xnte 

69 

M2 

CC*»)»y fl2) 

xnte 

70 


0x*l2axt r*0-X| 121 

xnte 

71 


0Y32«TI «3»-YH2) 

XNTE 

72 


OYOX32«OY32/OX32 

xnte 

73 


C(A)>IOYOX32«IYt(4)-Y|(2)l/nx<l2)/(Xt(3)>X|l<tl) 

xnte 

7M 


C(5»«0Y0X32-CI6)*0X32 

xnte 

7S 

-♦3 

iPitXOGO) *«3i*«3. too 
IP «IX «LE» 1) 60 TO 32 

160 ■ 0 

xnte 

76 

MS 

Cl 1 »«Yi I n 

XNTE 

79 


0X2I«XH2I-XI ( 1 I 

XNTE 

80 


DX3|aXt(3)>XI( 1) 

XNTE 

81 


0Y2|aYM2)-YI » 1 I 

XNTg 

82 


DY0X2I-0Y2I /0X2I 

xnte 

83 


CC3)a»DY0X2l-IYI(3)-YHin/DX3|l/(XI(2l-XH3l) 

xnte 

8M 


C(2)aOYOX2|>C(3l«r)X2l 

xnte 

8S 


IPlIXOGO) 100,100.62 

xnte 

86 

60 

IX060>I 

IP C|X - 1 ,GT. IXO) GO TO **5 
C C 1 I a CM) 

XNTe 

87 


Cl 2)"CI5) 

XNTE 

90 

62 

CI3)aCt6) 

IP UX *6E* IXMAX) 60 TO 3** 
160 a 0 

XNTe 

91 


60 TO *12 

xnte 

9M 
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100 

YBI«<C(3»*0XI*C(2»»*0XI*C(I) 

YPB|*C«3»/.5*0X|>C(2» 

ir ( IGOt toil 101 1 1 I 0 

lot tP2 ■ ♦ C(5)*DX2 ♦ C(6)*0X2*»2 

YPB2*C<A)/.5»0X2*C(5t 

IF t IfiO .LT. 01 GO TO 120 
UI«DX2/0X32 

U2«UI*UI 

U3>U2*UI 
A I»3« •U2-2.*U3 
A|P»4.*CUI-II?)/0X32 
Y«II»-A|»*YBI*AI»YB2 

YP-t l.-AI »•YPBI-A1P•(TPI-TB2>♦AI•VPB2 

ins ixlN>ix 

IF (TXOGO .EO. 01 RETURN 
00 107 t • l»B 
ln7 CAR( 1 l»CI 1 I 
RETURN 

no YaVBt 

YP-YPBI 
60 TO lOS 
120 T«YB2 

YP-YPB2 
60 TO lOS 
END 


xnte 

97 

xnte 

9e 

XNTE 

99 

xnte 

102 

xnte 

IDS 

xnte 

106 

xnte 

107 

XNTE 

loe 

XnTE 

109 

xnte 

110 

xnte 

1 1 1 

xnte 

1 12 


xnte 

1 17 

XNTe 

1 19 

xnte 

120 

XNTE 

121 

XNTE 

122 

xnte 

123 

XNTE 

I2H 

xnte 

12S 
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KJ USJ KJ %J KJ KJ \J XJ 


SUBROUTINE zrUNC 

CZruNc evaluate SOUNoART layer thickness rUNCTION ZETR4 

c 

C0NM0N/0EPEN0/U( 2Sdf 3) tH(250«3l t ALPH A I 2S0 • 3 , 2 ) tRHOVIZSol •SH(2 SOi 3) 
COHMON/INOEP /S I ns, X I OX ,Y(2S0) ,0Y 

COMMON /YTA8LE/ YT I L ( 2SQ » ,B6P ( 2S0 ) ,B6PP I 250 > • I Tt 1 LP * I T T t LF , /YTaBLE/ 


1 CYT1LI6) /YTaBLE/ 

C0MH0N/LTA8LE/TWTaB( too) ,XT a8TR( 100) ,ltwtab; itrxp, 
i SNDrAB(IOO),XTARMO(IOO),LMOrAB,IMOXP 

COMMON /ZCALC/ JfFTAO,ZETA,ZETAN,7ETAP,ZST4R»3) ,nSZC 2 ) ,YZETA, /ZCaLC/ 

? YTZETA,YED6E /zcalc/ 

COMMON/RALLRC/TWAlL iSHWALl ,HWALL,SMO»0 ,SMoR,SMOWN 

COMMON /EOSEBC/ T EDGE , SHEOGE , HEDGE , UEOSE , PEOGEB , AFEOGE , nUEOSO , /EOGEBC/ 
t DUEOS ,0UEDSN,OPEnSN /EDGEBC/ 

C0NM0N/N0RMAL/BLPfF,IIREF,RH0RFF,5MUREF,REYlMF 
COMMON/COUNT /NY.NYI , N V 2 , NT 3 , JO , JN , J A , NEL ,NEH , NSP , NM A X , N Y I 


obtain YZFTa WHERF U ■ 0»Y9 • UE« 

00 100 Ks| ,NY 
i«ny4.|-x 

TM|«ABSIU< I , JN I -UeOGE ) /UEOGE 
IF ITMI ,GE. OtOlO 60 TO 5Q 
TM2 • TMI 
GO TO 100 

50 YZETA*Y< !♦! )-0Y* « TM2-0.0I )/(TM2-TM1) 

Go TO 220 

loo Continue 

fINO YTZETA CORRESPONDING TO YZETA. 

220 CALL XNTERP » Y ZE T * , Y TZE T A , DUMMY I , I TT I LP , Y , YT I L , N V , C Y T I L , I Y T I LF ) 
lYTILF-IYTILP 

obtain new ZET* from edge criterion. YHEN update zetap and ZETAN. 
2STARI3)»ZETAN»YT7ETA 

ZETAP»(ZSTAR(3)-ZSTAR<1))/<05Z«|)»0SI 
ZET AN«ZFTA0*0S* zetap 
ZETA»0,5«(ZETA0^ZeTAN) 

c 

C UPDATE shown, SMDW. 

c 

Call lcurv (x*ox,xtabmo,smotab,lmotap,imoxp,smown) 

SmOWN«SmOWN/ (RHORfF»UREF»ZETAN) 

SHOW«O»5*<SMOWN«Sm0WO) 

RETURN 

END 
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APPENDIX B 


COMPUTER PROGRAM OF AIREDY 


Only the following modified subroutines 
are shown. The remaining subroutines are 
the same as in APPENDIX A. 


ADOPT 

BUCDTA 

BNDCND 

CONTNU 

DUMPIT 

EDDY 

ELEMTS 

ENERGY 

EXECUT 

HOODE 

HPCALC 

INTERAT 

MOMNTM 


NLOUT 

ODE 

PARAMS 

PRINT 

PROFIL 

RDTAPE 

SPCALC 

TABLES 

TFCBL (MAIN) 

TPCALC 

TRIM 

VISCX 

ZFUNC 
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VJ U U u u 


SUBhOijt t AOOPT (IFLA6> 

C changes to SOqHOUTINk Ao^rT 

caodPt apo aNOThe.** Point to Tj^t (jOUnoaP’ la^ek ano prepare for 

C NCCAUCULATION of The CoEFFICtENTb Of THE LAST TWO POINTS. 

C 

C0M*nM/OFPtM0/0<?qji3).H(2!;-j,3»fALPHA«25»J,3,J),PH0V«2bv»»SM(2bO.3J 
COrt.lO.I/PPDP /«HO(250.3» .SMll(2bj,3) fPM(25j,3» ,bl.t(26j,3> , 
t SHI iZiQtZt'*) ,SCI (2SUf2>9) .T(2but3* tATl2bj) 

COMMON/ T PROP /EPS(2SUt3) »PKr(2bUt3| ,BUET<2bOt3) 

coMMO'i /V Table/ yt il( 2Sc » .Bfi'’* 2 Sj> ibnppi 2Sor . i ytilp, i ytilf , 

» CVTIL(*> 

COMtH'N/FF VF.C /E ( 2q j) .F ( 2So ) 

COMMr>rj/5Ir,MAS/Sl(, 1 ( 3 » , 5 I H2 ( 3 » , S I r.3 I 3 l ,S l G*M 3 > . s t Ub | 3 ) , s I G55 l 3 ) 
common /Zf.ALC/ 2fcTA0,ZETA,7KTAN,/ErAP,25TAR'<3) ,tjS2I2) .YZLTa. 

I YT2ETA,YtOf,£ 

COMMOM/NORMAU/fTI.ReF ,UHEF » (7 hOREF , SMUHt F , P E T I NF 

COMMON/ COUNT /NY , MY I , NY2 , NyS , JOf JN, JA.NtL ,NEUI .MbP ,NMAX ,NY 1 

cofiMt)N/sT aTn / I staTn «max I t , I ter 

common /const/ 5lNlT,XlN)T,<MAX,neLTA|,SNt,SN2,SN3,FPbtNl,EPSLN2i 
1 EPSLN3iC0HVR(i,O2l)Y,Om)Y,O0YSO 

COMMON /OMORI/ CU!!(25C.3’ . j; "« ( 25h . 3 ) . C V V ( 250 * 3 I ,CW»<2b«,J> .GAMA.ZK 
C 

OIMENblOM SUBR(3» 

OAT A SUHR/6HM0MNTM,6HENE'<6y,6HEl.EMlb/ 

jNCREMENT r-COUNTERS. 

NY»NYa I 
NY |•NY-I 
N Y2«N>-2 

fXTENO EDGE PROPERYIES TO Ne«i POINT. 

00 53. J* I , 3 
OiNYi J»*t.i(NYl t J» 

H ( I J Y , J t N Y I , J ) 

Sh I NY , J ) ( N Y I I J ) 

CUUiNV.j) a CUU(NYIiJ) 

CI.V C My . J ) a CUV { N Y I , J » 

CVV(KY,J).CVV(NYI|J) 

CWA(NYtJ> ■ C»»(<NVI.JI 
00 l-'w IFl»1.MLC 

I JO ALPM# I NY , J , I FL ) a A L PH A ( N Y | , J , I E L » 

KHO«NY,J»aRWO<NYI ,JJ 
SMOl NY , J i bSHU ( NY I , J) 

P«lNY,J|apR{NYl , J» 

8LE«MV,JJa8(.E<NY» , J) 

IF(3.GT,2)G0 to 2|j 

on 2 j-. ISPal.NSP 

SHI (NY. Jt ISPIabHI ( NYI I J t I Sp ) 

2U0 bCl (NY.J, ISP) » SC I ( NT 1 I J , 1 SM) 

210 T ( NY , J I a T < NY I , J ) 

EP5(NY ,J)aEPS(NYl ,JJ 
PRT ( NY , J I aPRT ( iNY I , J ) 

5.-.: ai,ET<NY,J» a DLF''(NYI,J) 

c 


/YT ABLE/ 
/TTABCE/ 


/ZCALC/ 

/ZCALC/ 


/CONST/ 

/CONST/ 

/OmOKI/ 
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no n n non nr, 


r/rtM- KMOv 'jsijr, 3 -i^oint ^ * vL aph^^’O* i mat i on at edge* 

c 

iY)=KHOVM.N>'i )4 (KmOV Nr<e-‘ )-H,»Kh0VCNY2>'*’3**«H0V(NYl > )/2» 

C 

c rALCULATr E and r aT Ny* 

r 

H u V » = Pnr ( M Y , I A ) ■•aGP * NT ) • ; £ I ^ T ! L i NY ) / ZpT A 
^ / (7f:TA«ZtTA*HrY rriF» 

C 

rAlCMi.ATE A P P M T E blG^Aj, F OK PJSH-onv-N STUKARE AT NY - 2* 

rJV3a;:Y? - : 

t, ; TO ( I * ;?:,!?. r, * 3V7J) f IFi.ag 

rALCUt.ATF SiGOAl \ OH MOMENTUM E(iUAin)N, 

n«k^ SIGIM)« SMlMflY3*JA) ♦ LPS(NY^»JA) 

S?GHi)« SM'J*NY?,j^' ♦ E»»S(NT?,jA) 

GO TO IM.v 

rALC'H aTF SIGMA2. SIGNa3. AoO SIG^aH I* OH ENERGY ENUATION* 

DO 12b0 K«NY3*UY2 
L*k-NY 3-^ I 
TMl s rPS(K,JA) 

Tr2«5HiJt*^ , JA ) / PPIK * JA ) 

Tn 3 »T N j /PPT t K , JA » 

S I G2 U ) » TM2-*-TM3 

SIG3<L)«5MU(K|JA)-TM2^TMI-yM3 

J2?»0 SIGH<L) ■ TM2* (HLF (K , JA ) - |.g) ♦ T H 3* I BL E T t K » J A > • i«0^ 

GO TO 

fALCOlATC sigmas TOR ELEMENT EOLaTIUn- 
C 

I3C0 DO i3S0 K»NY3,NY2 
L»>:-N Y 3+ I 

13^0 SIGG*L* » SM'MKtJA)*HLE*A|jAJ/PR(K»J*)^EPS(K»JA)« 

, BLE T I K , JA ) /PH r nc , JA » 

l‘*Ow WRITE (6.9u*.fU) SUAKI IFLAG) , ISTATNt ITEH 

RCJOw FORMAT t/H9H POINT WAS AOD£t) TO HOUNUaRY LAYER IN SUBROUTINE t AA # 
^ IIM AT STAT ION • IS I I RH AND 1 T E R A T I ON » 1 3 / ) 

return 

END 
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BLOCK CATA * 1 

C A 2 

UlMtNSIOK ATam ( 3 tb I I I ATEf* » 3,5** J ,D*Tt « 2f 3a» 

C AH 

CCMMOAi /HISC/ EMN,SU**M,TT ,so,ATOH<3, I05J ,lLHT ( 15» ,eo« 15) • /HISC/ 

I BtP( »5,2) iTM.TLOKI.THIO, THIGH, PP.CPSUM, OF, EWRAT, /«ISC/ 

? HSl'PwfHPPt?) ,RhO<2> ,VMINI2I ,VPLS«2) ,AP(2J , /HiSC/ 

3 NAh(rnE,,5l ,*mUH< I5,S.» ,PeCWTI IS) ,tNrH« lb» ,FA2( IS) , /MlSC/ 

<4 KTEmP ( IS ) ,F Ox < 15 ) ,OfcNb* IS) ,TUN /H|SC/ 

COMMOA- /INO*/ CCAiVG, TP ,HP , 5**,MOLEb,HP ,NPT ,L ,N5,lfHAT , I MAT , 181 ,NC , /INOX/ 

* JS0L,JLI«,IC,K2 /INOX/ 


LOGICAL POLES 

COiiPON /5PECF.S/ COEF(2,7,3^l,5<3t»,tN*3C,|3),ENLN(Je),HO‘30), 

I OelM I 30) , A ( 15, 31 ) ,5LH( 3C,3) , lUSjr I 3G» ,TeHP«50,2 ) 

INTEGER see 

COMMON /input/ H ( ** , 3L > , I RO|_r , I THtRh ,pT ( H , 30 ) ,NP»00,NSPEC , /INPUT/ 

I PHa2(30) ,T I (3C ) ,T2l3t) /INPUT/ 

C 

EQUIVALFNCE *ATnN(|,j),ATAM),IAT0M||,S2),ATtM),|0A1E,EN) 

C A IS 

C ATOMIC SYnpOLS. fttIGHTS, An!) VALENCES A I* 


C POUlFirr FOR dummy ELEMtNTe; (<4| H C ^ 0 • (tOl«*«)aiRS ELEMENTS 

C ' A 17 

DATA NTAM/2HH ,1.— P,!#, 2Hh*. , H . ci,3 , o • , 2HL I ,6>9Hc, | • , jMB F , 9 , Q I 3 , 2 • , 

|2hR , I u • P2v: , 3 • , 2HC , 1 2 • 0 I I , ** • , 2MN , I ** • OCB , 0 • , 2H0 , I A , OCO , *2 • , 2HF , A 19 
2l9»jL‘v,-l*,?HNE,2 •lM3,u, ,2MN A, 22*991, |.,2HMG,2H<320, 2, ,2 HaL, 26,98 A 2U 

?L, 3»'»2M5 I , 2P ... 9^,. , 1, , , 2MP ,3...97S,5* ,2HS , 3? *066 , H * , 2hcL , 3S * HS 7 , • 1 • , A 21 
q2HAR,39,‘»*,H ,,, , ,2hif , 39 . U:0 , I • , 2HC A , **U* jao*2. , 2HSCiHH *9&o , 3 • , 2 h 1 1 , H A 22 
k7.9j:i,H. ,2riV , 5u • 9 5C , 5 . , 2 H • S 2 • U 1 4^ , 3 . , 2HHN , b H • 9 HQ , 2 . , 2HF E , 5 S • B St , A 23 
a 3. ,2HC0,5P.9H, .2. ,2HNI ,58. 7lv‘,2* ,2MCU,63*5H0,2. ,2HaN;65» 380,2. ,2MG A 2H 
7* ,69.7 2« , 3. , 7HGF , 7 2.6t)L,**. ,2P*S , 7 H . 92^-; , 3 . , 2MSE , 78 . 9 60 , H . ,2MBR ,79.9 A 2S 
» I 6 I . ,7HKR ,83 .Pl„ ,U. ,?HRR ^P5. H8L, I . ,2HSR ,87*630 ,2. ,2HY ,B8.V|b,3. A 26 
9,2 h7R,9|.72i*H.,?hNP,92.9|^,5.,2mm0,9S.9S3iB*,2mTC* 99*00U,7.,2HMU, A 27 
<lil.l L,.'*.,2HRH,t 2t9U,3.,2.P0,io6.**..C.2.t2NAG,107.Bbv.i**2HCD,ll A 28 

«2.'t|L.*7.,2HIN,M‘*.b2'j,3.,2HSN,MP./LO,H..2HSB,l2l.76w,3./ A 29 

data ATEM/2HT F , I 27.6 I U . ** . , 2h I • I 26 . 9 I , - | , , 2„X E , i 3 I . 3C D , u * , 2HC b , I 3 A 3U 
|2.91ti,l.,2HbA,l37,360>2..2HlA,l3A.92u,3*,2Hct.lHU*13u,3*^2hPN,IHu* A 3l 
291 u,3.,7hno,|HH.?7u,3.,2hp,i,1*«7. uUC ,3. .?HSM,lbi;.35u,3.,2HLu,lb2.uO A 32 
3v,3.»2Hr,n,l57.26i ,3.,2HTH,|5<>.93u.3.,2HnY,l«2*b|u,3.,2HHO,16H.9Hui A 33 
'4 3.,7HLR,167.27..,,3.,2HTM, l6e«99v.,3.,2HVH,|73.0Ht,3.,2HLU,l7H.99u,3. A 3H 
5 , 2l*,(F . I 7P *5.^ , <* . , 7HT A , I Pu • pSO.b. , 2HA , 1 S 3 . 86 w , 6 , , 2 MR E , I 8 6 . 2 2 U , 7 . , 2 A 3b 
AH0 5.I‘’0*2 Cv,H.,2*'IR,192.2U|j,‘*.,2hPT,I 9S..39C»H* *2MAU,|97*uQJ,^., 2HH A 36 
7G,2y'1.6 I !. ,2. , 2 mTL ,2CH. 39f , , 2HPR . 2o7 . 2 I 0 , 2 . » 2MB 1 i20S*990,3* ,2MP0, A 3/ 

b 2 Ib.OtCi, ?* , 2 h aT ,2 I L.OCti , L* ,/HRN •222.UO0.U* t2HFR,223*wO0,l*,2HKA,22 A 38 
96 * O'jO , 2 * , 2 H A C , 22 7 . ^UCi , 3 . , 2 m Th , 2 3 2 * OUU , H * . 2HP A , 23 I * uOc t S * • 2HU ,238* A 39 
IwDw ,6* ,2 hNP ,23 7.^,,... ,5 . , 2 mPi^ , 2 H 2 • oUi. , *) * , 2H AM , 2H 3 ; wOC ,3.,2MCM,2H7 .dO A Hu 
<^,3.,2 hpk,2<*9.^.V.,,3.,2hlf,2S1.wUU,^.«2hES,2SH.(;0O,w*, 2hfM , 2S3 • UOwi A H 1 
% U * , 2hm n , 2 b 6 * .' uu , , 

C OI.'IIMT H r N 0 

4 2HH2 , I . . w8 , I * , 2mC2 , 1 2 , U I I , *• * , 2hnz , | H . 0C8 , U . , 2h02 , 1 6 * OOU , *2 * / 

C ■ A H3 

C 
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\^r.\ bATj* A^''' Kf- f. CTa^'TS 0 A T A 


U r ;i 'S1‘M {!,»)♦ ,MMh7 i^HH20 #mhuh 

, ( i; A 1 f I : , J ) , f M f ( ? ♦ I ) , I *i,f)/3Hj 9 , 3rt/«.b • 3h J -\|3h/6I#3mJ 3» 

- 3M/A, ,-Kj ' , J 3 . 3 h/^<S I 9 f 3H/6S/ • M r n I I J ) t B r I * J ) • 

7 ’ i; i»'Oi J - »u*u.,2h 9 0*k>i2H t2»0t 

'. ,h »i. ♦l’*_^i2*-*h •2 »ci2hO 9l«.|2h *C#C|?M |U«Uf 

^ »i,* t?H iL»L«2hO •l»vt2HH fl*U#?H fU«b» 

/ 7n #7* |7H t ^ 9 ^ 9 ? ^ f i' 9 L t 2 h fU*u/»(PHA/(I)f I • lf6)/ 

y 1 s I * lf6)/A*b00iJ»Crf/f 

c | tl J ,ANUM( 1 || ) $ 

r M 1 7 , I ? f < ? • P ♦ 2* . / »PECft M M I PtC»*T ( 7 > / 1 OU*Uf 

•. r 1 • / 1 TM t ♦ r M '■ t • / * p ^ 1 H / m • ^ , F A / / I s ♦ i H b / , 

, rTTFf^?<l>tKTf‘*F<7»iPn,nP(3)/3*29H,lS/trnX(l)iFOy(2)tFOx(J)/|MFi 
r I r . * .' Mf / ,'Jt N’S U ) • Cf ^ S C 2 » or*‘-'» t 3 ) / 3^-. ^ / .NSPtC/3 / # NPKOO/V / , 

'i ! r hF / , / I c ‘iUM I ^ 2 ) » SUP < 1 , 3 > , I • I » 9 ) / I « • <IM / » ( N ( 1 i M i 

r 1 1 #i *1 f ( 2 ♦ ! ) t M A f' t f 3 ♦ 1 ) • T « 2 ♦ b j / J 2 « i w / 

lArA < SI'«' M I ♦ ? , T »7 ♦ o)/*4»-n »MHfC ,*{HN2 / f ( U A TE I 1 » n , 0 Air < 2 I 1 > » 

t Ts7,'.)/3‘<o ?,3k/63,3hj 6,3H/63,3hj 9 ^ 3 H / 6 b / , ( ( m T ( I , J ) , R ( J , J » , 

7 I=J*'i)|J*7»9)/7h;: |t«Oi2n »c*c«2h »C*U» 

3 7HV|!*wi2H(jtI*o*2n f«»»tjt2H t'5*Of 

j *2 *Oi2h tL*C«2H t«;*ut2H >C**0/t 

r. (FM A/{ I ) , I = 7,9)/3*lMCi/i<Ti< I ) iI*7*9)/3*30u.^/» 

7 t; A ( 3 , n » A ^ M M ( 3 , t » / 7 M M , 2 • t ' » P t f r. 1 < 3 ) / 7 9 • 0 / 

LAia (((rOf.F(T,^»K), J » !,7), 1 * Jt2># »C • lt6)/2«bUiM»0»0» 

! 1 l7^;,?.S^,‘<.^._,^b‘*7|,627,-0.<«6nil7A2,3.1t»0190l, 

, l»3.67M5J*«Sr-lb,-B/7»3eo‘<2 

•j -i.{;|2273Vr‘-|2t-7bB.9l;‘*7‘4,-?.2yV7ub6,2«7|67633,2»''M5137Sf-3* 
t. -H.k, 22“37yF-7 , I • 2266B2f " 1 L » ”'< • By 7 2 1 Mbf I i» t~ 299ub.B26 »i • #.30^67 1 * 

f, y.t?,. l?7b,-I.UB‘.y99F-3,y,|&2ll Hut"* t-2«963/*»u‘*t"’ tB.07v<2 lOifl i* 

7 -3 279.7??,- ,32?7r ty< .2.^y2Lb9H,-2.7SSuAI9t-S,-3.!..2er33L-^. 

1 M,$t.|v/^7**t”l2*-y.36Pf:blSt-!*i2923iJ.Hj3,‘4,92o3wBO»2»9‘46‘»2fi7» 

^ -|.63P|«<>bt-3,2»‘'2U3l*6-t»"l.<>o2ey3?E-?,3.fl9|^A96‘tf-I3ti’l‘*7.6H*t* 

t 2.9A3 99*.9,2.9U<)‘.27,9.b93i<>bi.E-y»*l*‘»MHI7&2t-7,J.37b6t*»*t-ll» 
p |.H2?HSy2E-l*»3935*3B|Stb.«y23Hybi3»83759H3.-l,077BBbeE-3» 
f 9.6F3i;37»L-7.|.H7|3972E-J_,-2.2b71u’‘«t»>3t36‘*l. 2823 1 0, *• V 3700O» , 

r. 3.<-?j9b2b,7.3felP26yf-H,-liv6b222Ht-7,3.62U|bSBE-ni-2.B'7‘*b6 27E-»b 

F»-i?-J.9FZb,3.61b 96u»3«*2bb9P&,-l.H782l0Mt-3»7.uS>b«t5H'»E”8» 

E B. 7636137 t-V, 2. m5b993t”l2«-loH7»b22A»M»305 2778/ 

U*T/>< («fOEF< I ,J,K ) »J*l »7> I I* I »2) tK«7»9l/2»*»5u2682*C«U0jlU88l**b8t 
t -y.7‘.P633 73f-7.w, Jfl7‘>652yE“ll'»“y‘ U>2598 39 1- 1 H • 56 I »6.0*»0» 

y u.i(<»P7SA,2«b!.3i'7|‘4,-l>*2IP t|ntE-ytC-«5<t205 2e7E.«7t 
\ -^.b6H7b6 ;2f -!.■• .2L,999l H^fc-l3»b6k,9H.9.jM,*t.l6/57‘*‘*t 

t 3. |B9o,p ...u* 3 3P228I , - u • 5' 2 « <; 9 3 I P E - 6 , u- . 9S V i 9 3 32 1- 1 0 . -y . i*»8M 79 325- J H 
c ,9(;2P»329„.A.7y5?j26*y*y‘tr,962j,-(!.uC3‘*|Bj7e3»y»79Bi9l90t-5« 
r -t!./-M?93|6F-fi,..l59l9t76t-« I *’7Hbi3939, 2* 99 799881 
( 2*nV63|9it,^.tul5|Sfl66i-t*b7?35277t-6,j» 99 8073935-10* 

7 -i,.6b?2 365bt-|9,-9o5»eA|PH*6*l6l5l**«,3»679$26l*-0»Oul208|50* 

3 : . 23291. II *6 32 1 / bb 9^- 9 , - o . 2 26 7 7 26 3F - I 2 » - | u6 1 . | 588 t 2 • 358o9 2 / 

tM- * “ 
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o o n 


SOB*^OUT I Hi bHOCrt. 

CBMPCmO calculate WUAMlTltS NttESSAHY F u« BOUNOAKt CONDITIONS aT 


c KOI^WaRu station# 

COMMON/ I NoEP /S#D5»X»r)X#>« 2^0 > »0^ 

CCMM0N/YTABLE/R’PTAB<5UU)#XxAPR|/(b0c>»LRWTABt|RIAXPiCR^X(Al| 

I PETABISooJ I ^TAHMUSo^, »#LPETaB,1PEXP,CPEX(4|, 

7 UETfcb(SUO) • LUETaB# IU tXP,cyEX<6) f 

^ XTOl*rX(SDiil tLOUOXTflOUoXP 

COMMn^/UT A«*|. F / T/rTAB ( lUU I , X J AHty, ( n.L > iLTV^TAB, I TAXP t 
\ SMDTABI IulNx’APMDC ,LMOYAB#IMoXP 

COJlHON/r-EOM /KW I 2 ) *OP^OX ( 2 ^ |T HIM 2 ) 

COMMON /7CALC/ 7 ^ T A 0 # / 1 T A # ^ U A N # 2£ f A P , Z S T A R ( 3 I # o S Z ( 2 ) f t Z E T A , 
t rT^ETAtYEDGg 

COKMON//'ALLBC/TVVAILiSMWALL,MFaLL#SMDRO»SMOW,SHOw^N 
COMMON /rOGEHC/ TeoGF • SHEOCifc tUfcoOE tPEOOt b , AFEO 6t # O^EOSO # 

t DUE OS f OUt 05 N,oPEOSN 

common /NORM aL /BLP£F tUHEF •RhC'^EP »^WUPEF .RE Y INF 

COMMON/ OPT I ON/ I OF aL iL AMRR . ] ACOMP 
COmmon/mjinj/injh? 

mOVE FORY^ARO OUaNTITIFS TO rack ouantities# 

UUEDSO»DL'EOSN 
SM0?»0«SMnif;N 

c 

C momentum fOUATlOM hOUHOAFy ^ I T 1 ONS # 

C AT V all u « C 

0 aT EDGF U « UF 

c 

CALL LCUFV (X^DX,XT0ODX|UFT«*PfLUUDXTfrDUDXP|DUEpX) 

DUE OSN.OUFDX •COS ( THV^ ( 2 > ) 

0Ufc0S«0#S* I CUEDSN^DU^ 050 1 

c 

c fNTEGKATr TO OBTAIN tf AT FoA’XaKD STaTJON# 

C 

UE06t«UFDC.r •0ULDS»05 

c 

C C^NTINUITv EOUATTOn HOUNOAPy Cf'NDlTION, 

C A T V A L L R M Q V « M 0 r T n 

C 

CALL LCi‘PV (X4.DXtXTABM0fSML»TAn»LMLTA»tfMDXP#5M0#»N) 

SM0 FN«5Mrv-M / ( RHORcK*UHEF AN I 

SmDYI»C #S* ( SMOV.N-* SMOriO ) 


/ZCALC/ 

/zcalc/ 

/edgebc/ 

/eUGEBC/ 
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r» r» nnr» non 


|rNf:K(i> EUUAflON hOliNDAPt C p I T 1 0 M S . 

at ".AU. W • Hw 

AT f06t M • HF 

CALI LCl'PV IA + DX,XTABT»/,T»;TAe.LTArTABiIT«(XP,T»ALU 
Caul XflTfKP ( X*OX jPEOGLB »Dpf t)X , t PE XP , X T ABPC • FET *B i UPET *B 
, CPfX.IPEXP) 

OBTAIN SHEPGS. 

SHEOGfc»HFr.GE-UED6E»UFD6E/2, 

IF! < ir.EAL»6T.t) .AMD. ( INJM2.FC.O) » GO TO 300 
CALL HOODE TO OBTAIN SHBALL AND MPALLt 


C 

Call hoooe »3» 

Net URN 

c 

C CALL IGOPF TO OBTAIN SHBALL AND H»»ALL* 

C 

3LC CALL IGOOt (TPALL.SHWB.PEO^EB. I .DUMNTl ,0UNMT2,0UMMT3» 
SH«Al L«SHXJB/(URFF»UREF » 

HWALLaSHWALL 

RETURN 

END 
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n o 


SUBROl'TIKf. CONINl! 

CCrr’TfU IfiTrf KAlt COMIMlilTY FtjOAlION FHOM » ALt lO EUGfe TO OBTAIN 
C RHOV f’Rl’FILF AT ^ ♦ l/J. 


COh!MON/l'I I'|K0/U?75 ,i 3I iH(25t,i3» * ALPH A ( 25ti , 3 , i ) tRHO?(2SO) tSH<2‘>0,3) 
COMROA / if.L'EP /5 .'■'S » X it'* I ^ » ibt ) *D» 

COHMOIJ/PI'CP /KHP(2'io,3> iSMl'taSwiS* iPRC2Sc» 3» .BLtl£So,3» * 

) !iHI(2!:Ui2i*),SCt(2BUt2«R)iT(2SC»3)tAVt2&0) 

Cri-lMOA! /ytaRIE/ TTIL12bO) ia(,P< 250 1 iBCiPPI 2501 i 1 1 T I UH * 1 T T I LF • 

. CyT IL I 

CrMMON/f.KOM /hw ( 2 ) ,DH«in* t 2 » I THW I 2 ) 

COt-iMON //’CAlt/ 7FT«o,ZETA,2tTAN,2ETAP,2STAR«3),oSZ(2>iTZETAi 

I XT2E1 A , YEOGe 

COHMON/ifAU-Ht /Tl-.Al L tSHWALL , Htt A LL i 5M0P0 , S NOW « SHOWN 

CCKN0M/CPti5T /Str'lTi*|NIT,)(litX|0ELTAl|SN|,SN2»SN3,EPSLN|iEPSLN2| 

! EP'iLNJiCONVWcOZOVfOSDT ,OOYS« 

CONMOtg/f-nUNT / M Y , ; , Y 1 . f) Y 2 i f r 3 i JO i i J A , HE L , MEL 1 * N5P , NM A * i N Y 1 

COMMON/UPV II / J 2 t( , UKY . RHOKi 

INITJAL C'lfiPITIOM - at WAU. PHPV « MpOT»! 

Rt'CV ( I » •5Ht'A 
C 

t ?NMIAL!7Y PlJSH-rUli-.N ^jTORAUf;. 

C 

RIINN I •RRC t I , JO ) *IM 1 I JO I 
HUM I Ml ■HHO < I , JN ) *U « I i JN I 
RWAyE«U.5«lPWI I ^♦R^»(?^ 1 

ORianS»0*T«IStN(THg ( i) )*SMi(THW{2I )| 

00 K-. ItriNY 

ROKJgaKHO I i , JO ) AU I I , JO ) 

I N»R>ii» i j • JN I *U ( I # JN ) 

DRUD 5 * t P«'f I I N 1 - 1 ) / ( 2 • *0 5 I 

DRi‘DY*(PNMjN^RUMN-KI)M!N | | ) *020 Y 

Rl/f=HNH«i . 7 b • « RUM I N *4 RIJM | ^ R UPN I > 

G P N « i • f • f F! N R ( 1-1 ) ♦ B (; P ( i ) ) 

YTF4H*; .P* (YTIL<!-|>^YTILU)F 

RMOVf I t-l )4.DY*( - ORUo5/r,P^H•^ LOAT(J20f*RURHNHf0RR0S/ 

I tGPNH#RNAVeMZtTAP/7pTA*YTNH*0RtDY) 

C 

C pUSH-DOWfN 5»TCPAGF. 
t 

KU«^ 4 i»Ptl^U 4 
Un RUMINI « HUI* IM 
RFUlHti 
ENO 


/TTaBLE/ 

/ YT able/ 

/ZCALC/ 

/ZCALC/ 
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SL'bKOUTINE DUMP I T 

tDUPPtT OUMP MATKJX COETFICUNtS FOR * GIVEN DlFfE*<ENCC EQUATION. 

CCNFON/PEPEND/Ul250i3J»H«250i3)»ALf*HA(250*3|3)*RH0Vt250T iSHT 2S0»3I 
COKMON/MA TRX /A ( 2Sbi3 I tB I 2sC I 
CONMON/EFVEC /E I 25b> »F I 2B0) 

C0KM0N/SI6NAS/Sir,| (3) ,SIG2(3) ,S1«3(3| ,SICi*MS) iSlGSO) *SI65S|3l 

CnuPON/CfUNT /NYtNY|iNY2«Nr3,jO,jN,jA,NEL*NELl»NSP»NMAX,NYl 

COHPON/STaTN / ISTaTN.NAX 1 T , I ter 

ISTATN. I TE R , I •il( I • JN) iH( I • JN) »Sh( 1 *UNI *RhOVI | ) 
(l,(A(I>liJ)fJ-l.3l|B(l*|l,E(nir(U»U(I.UNI, 
H(ttJN>iSHIl«JH),RHOVlI)|la2|Sl 


(|,IA(l-liJ)iJ«Ii3JtUlt-ll»E<ll»F«lTtU*l»JN>, 

H«I . JN > .SPI I • JN) ,RHOV ( 1 ) , I aNyt |Ny j I 

I »IH I »JNl iH( I ijNI iSh< I *JNI »RmOV( J > 

‘5lG>‘ l’ *5 |g 2‘ 1* *516^* l’ ‘STS*** * ■ >•* 

5 tG 5 s‘ I • • i*I * 3 ’ 

u*72X. iPMttz.MI 

Ri'IO FOHPAT « 1 IO|IP»vE»2»** I 
RC20 rORN*T I 1 1 w »72X » I PRE I 2 • R I 
Rl.30 format « |SX»IP6E12«R> 

6N0 

MpltATioN* NO diagnostics. 


write (A. 9 & 00 I 
WRITE U»9wl0> 

1 

NYL»NY»R 


write t<-.9ClO» 

1 

t«NY 

WRITE U.’ 020 » 
WR I T E * * • ^<i3Ci > 

1 

RFTUPN 

9tnO FPRRAT I/2IA/I 
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u u 


suPf'fi.Tim ti'CY 

c CH^NCrf- TO SL'P POlfT I Nt t(,DV 

CFtC> C*LCt!|.ATt Tl'PpUltM TKaNSHCKI PKCPERTiES» 

C 

COfl'’OA/Ct»‘EMD/0<25Ci3>*^'*25i.*M.*LPHP(?6&.3t3>»RHOy<2&0*iSH(2b0»a) 
Cr.HKOK/ j HD£P /S »P5 f X I r>* I T ( 25P ) *PT 

C()MKOf/PP(P /PmO(75o,3>i ?i>*.i3»»FP<26(,*3>t»l.E.<2S;<»3>t 

I bhl » i'!s0.2i‘' ) ,5C t ( 2FC »2» V » ,T (2St .3) t Af (2bQ) 

COHMOh/TPPOP /tPS{2Su»3>tPHT2bV«3*.HI.tT<2SOi3» 

COMMOF' /TTABtE/ T T I U « 2^0 I • P CP t 25l. » * BfePP « 2S01 t I T T 1 LP • I T T I LF » 

, CYT1L(65 

COWMOK /7CALC/ ZETAO,ZETA,^FTAN,ZfcTAP,2STARt3ltOSZt2»*t2tTAi 
) YT 7 ETA . TEt OE 

CON»''>K / Y'aLLFC/TY »|. L *5F‘P*LI. / Y'aU. t iPpPO ,SMt,WN 

COHMON /EOtEuC/ TfoGE iSHE OgI iP£HC>ttPtOfr€ t PEOt^EB t AFEDOk i OUEUSO « 

1 DUEDS ,UUtl;s^'«CPtoSN 

COMPOM/MPPMAL/pl PeF.I'PEF *P(,‘=PFF , SMURE F t P E T I Nf 

COMMON/ CON ST /SlWTT|XlN|T,x»^AX,OfcLT*l,SN| « SR2 . Sn3 , EPSLN I »EPSLN2* 

I CFSt^iS ,C0 NVRg. 02PT .ONt'T ,(.CYSW 

COMMOK/rnllNT /NY , t. Y I , N Yj , Nyj , J(. , v'N t •<* »^'EL , NEl I . fbP t E'M A X , N Y I 
tOf.NON/NEY J / Al E y 1 S 1 1 LEY. I 5 
COiiMOY /EFVEC/ r t 251 ) «F I 26^) 

COl.MOr /yATRX/ a ( 2SC t 3 1 » n 2‘-'l ' 

COtlKON /CHCRI/ CUU(2Br).3>(CL'V<2bi. t3l«CVVl250>3>,CNAC 250.3) ,GAMA , ZK 
CCti'lOt,/Mli7iY/?OE LTA 

• ••• ElNli SDELTA AT U»,, .V9C»UE pL'P Pf/ZY 
Do 3b K«I|NY 

I ■ti''* I -K 

sx ) maps » u ( I ,jN ) -HEDGE ) /yr ogE 

1 r ( bX t .6E • i. . y I t ) GO TO 3l. 
bA2*S« I 
GO TO 35 

3c T0ELTA«vtf*i)-DY*(SX2-y.U)c'/(5X2-SXI) 

60 TO 3P 
3b continue 

.3 8 CALL .YNTFEFnDClTA.SDELTA,o')MNYI.IYTILP.Y,YTIL.MY,CYTlL,ITILF) 

C 

DPEC5N»-fiHC { MY , JN ) *U ( NY I JN ) •PUECSr 


C rlMU OELTA, the VAIUE OF yijl aI »hICM U « G.VVb • 0E» 

C 

DO l;.L F»l»f-Y 

1M| MAEtS HM I , JN I -HEDGE ) /HE Dfaf 
IF n)it »GE. y.lc5w> GO Tc 50 
TM2 • Tf! 

GO TO ILL 

50 T0ELTA«Y* l + i)-0Y«(TM2-L'.t Li,)/MN2-TMn 
GO TO I2t 
100 CONTINUE 
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/YT able/ 
/Yt able/ 
/2CALC/ 
/ZCALC/ 

/LUGEBC/ 

/EOGEBC/ 


VEC/ 

/MATRX/ 

/UMORI/ 


o r» 


c riND PFLTa COkRLSf’OhD T VOKLTa. 

call XN-TFI-'F' (YptLTAfDELT^#Cl‘‘^^^’Y^|lY11LF|Y^YTIL#WY,C»TILtlYTlLFl 

lYT H P 

C cALCIH.ATF TliRPULtNT TPANSfriRT KKOPEKTlfS AT EACH MESH POINT. 

C 

EPS t : * JM • 

T 1 »PE Y I r> 1 AN 
T?*T I /?f . 

P A KP^^SriM I t JN) *P M ) «Uf H 1 V' / T I 

C* IMF TES'T ftp FRI^ALITy BFHf«LtN rjf; ri. j rH LGk N S MAY MCT BE MEANINGFUL# 

IF rSMDYN .Nt. r • ) C,U 10 |7c 

TM3 ■ TM/kTAK»#2/(5MlM I » JM)»<t>CPn )*DtPtV)**3) 

TmN • I.L. ♦ I > .H •PPEI>5N»Su*h7 ( TM3/HM0I I » JN) ) 

IF ( Tr’<4 *l f • .1- > PM • J *i. 

IF nr** .M . ‘^.1 > PM « sort ( TM** ) 

GO TO Mil 

17 (! TM 3 * n*Fi •SFUTN/l,ORTlkFf?( ! «JK) F*SUkT(7!Ai:ETAKA»2PSMU(!#jN)/ 

j ( f OF < M •DF k 1 V ) ) 

TMMclipF. r‘SN/(5ML< I ,jN)«bGF ( \ )#OtkIV#SMDV!(NI 
I A - uo 3;’; 1 » :»MY 

r* Thp TES'Y fop EC^UaLITy DET^FFM Nr^-M'TEGtPS M^Y MUl bE H£ANINGFUL. 

I F ( S» M • F ^1# • L t ) F*0 10 1*?*# 

TEHL*E*P<lM3/5m‘( liJN)) 

5SS* -TM«•SMU(I,J^. )A(I«-1ERp)#-TEKn 
IF (SSS.OT.^j.i ) GO TP 2U0J 

M r ( 6 , ?r ; -V ) I t pprrsn » SMti I i , jft ) , olh i v , snntM .tepm.smuci.jn) 

2t FOfcV A*" ( T ^ t M • 7 ) 

?wT*l CONTHiUF 

BH « SOkTISSS) 

l^r. bkKT e -T2 ayT|L<T)*BM/5MU(j,jM)»5CK1CKHC(|iJN)*PAREN) 

C Y V < I t JN 1 * PR< T 

CPVI I , JMI « . . 16. #T I *bbP M ) *Y T IL M ) *1T IL< ! > ♦MHC ( 1 » JN) • 

y AbS( 02 nYA(U( U|,jN)-iHI-I,JN)))A(|,L-tXP(BRKTn«*2 

rALCHLATF TUPPULEMT PKAMOH. ^U^‘btk. 

3’Jf PPTIIiJf'l » - tXP(t5WFT))/<l.w • EXPI2^#0* 

I 50K1 C PR ( 1 f JM M .PWK 1 /3*t.i.) ) 

C* THF TES1 Ff’W FOliALTTv HElAtfN ^r^i-I^^EGtPS MAY NOT bE MEANINGFUL. 

IF ( C . ) (iAMA«0.36L 

1 • / 

C 

C CALCliLATF IFmPCiPAKy WHANTiylES 

C 

)r UYr^ ■ - IJ ^ I * I I jN * > • 02n Y 

KhCF ■ • KHC<i*1»JN***0^0Y 

UUYYMtJ « t(UlMl#|,JO) • 2 • • ACOL ( I » JO ) ♦ CUU I I - I , JO n aODYSO 

CUUYMN a ICUU(IA|,J0J - CUo n - I t JO I) A02DY 
SMUY « I «;mU< !♦! , JFJ) - SMU ( I - I , JN n A02nY 
ALFA ■ C. . IC /TX 

T2 » PHOV n ) •PGP ( T I - U(I,jN)#tUI 
c •••*#««# OiSlPATlPM LktUiTf- mOOIFILO fAy 9»|V73 •••••• 
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n n n r> r> noo 


StS • YT IL ( I ) /DtLT A 
SCS2 • SLS*flS 

bn ■ yt !L ( I ) • < 0. ?'^,50*SLS2-;,.6H6C*SLb^C!.*t3 icr 

BRkT » 2.t ‘FPSJ 1 ,J0)»F( t )*B(5Pri>*OYHN**2 

tni « F < I ) *nbp ( n «EPS < I iJo ) tAtr A 

OEKTV a 020Y» (EPS( 1*1 I Jti I . FPS(t>l,Jnit 

T«2 « F n ) • ( EPS ( t , JO ) *eCiPP ( n /bC.P c I) ♦ HGP( I >*0EK| VMAkP* 

TM3 ■ « f PS I J I JO 1 / I ZK» T I ‘KHpl I , JM •bt'tl j aas 

T“H « BKKT - C APA »TM3»KH0 I 1 I JN ) / I 2£1 AN*PN J 
COEFFICIEI;T OF { U(i ( N* 1 » M* I ) 

*C1-|,3) e f,*trY*<T2 - TM2) - 0 • S>1. *00 YSO* T H J 
A(I-li2) « FPO( r » JN)*U( I » J nI/OS * ODYSO»THl 
A(I-lfl) ■ -A(1-I,3) - OOYsOtTMl 

B(i-M « ♦ PHC< I ♦ JB' > •" ( 1 1 Jh > /rS*CuuC I , J0» - U*B0*(T2 - TM2>* 

I (lU'YPN * u.e'3»Ui‘YYHN*YP| 

I » I ♦ 1 

IF I I .LF. f;Y| I riO TO 11, 

*Il»l* ■ t. •(? 

» «NY2,3)»'. .t 

CALL 1PINIA,CUU(2,JM) ,B,nY2,nmaX) 

CUUl I * JM I « C .0 
CUU I NY , JO ) ■ L . . 

CUrfll.JNI » L.w 
00 U-tC T»:2|NY1 

••••••*■ DISIPaTIOn length hOOIFIEC may Si|973 •••*#• 

SLS ■ YT ILI I l/OELTA 
5L52 « SLSASL*; 

t»N ■ YT U ( I ) • < w. 2, 5C’*SLS>2-„.6n6t«SLS*n.**3 I C) 

IFt Cl II < J , JN ) .LT . , j ) COI)(l,JN» ■^.U 

EP5«I*JN) ■ PN*ZK»NHO(r.JM)»SOKTlAbSCCUL»I,jN)))*REYINF»ZETAN 
IF ICUVII.JfJ) ,LF. EPSIIiJnM EPblliJN) a CUVlTtJNl 

IwOl, continue 

EPS! I .JM)»O.J 

EPS I NY ,JK ) ai, , „ 

smooth THf FOOT viscosity 

f>l OP Mfji, f«3.f'Y2 

EPSII.JAl » I EPS ( I -2 . JN I *Ef.SI I -I f JH I ♦EPS I I , JN) ♦ 


1 FPSII*l.JN)+fPs<'*2tJMI/S.L 

NEV r CuU(l.jM) ••«••••• 


BLS ■ YT 1 L I I > /DELTA 
SLS? » SI ;.*SLS 

BN a YT TL ( I ) • ( ? SL»SLS? .SaAO»SLb* 0 .S 3 1 C) 
C'.'U‘I»JN 1 • I FPS I 1 I JA I / I A F ,r) ♦KHO< I t JN ) «T 1 ) f »*2 

SOL EPS(1iJI 4) ■ FPSIfiJA) 

CALCI'LATF lUPSULFNT LFhIS NgMAER. 

c 

00 h,'.V t » ) » N Y 
<>cr BLcTII.jN) a TLEYTS 
RETURN 
End 
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SUBPOuTINF TLtMTS 

CFLrHTS ^iOLVe F!ACH SYSTEM OK K|_FMFNY F*^‘JATI0N5 FOK FLEHfNT HASS 

c alpha h » t ^ ) • 

COMMON/ rF:KLND/0(25ii»3) »H<25,1'*3) *ALPmA( 7&^,3,3) tPH0Vl2&0> fSH(2SOfJ> 
COMMOn/INPFP /StDSiX,0X,Y*^5U)iDY 

COMMON /PWPP /kH0(25lji3J |Sf4lM?&Ut3) tMR(2BOt3^ iBLtC25o»3) » 

, SHI (2SUi2,9) ^SC I (2SOf2iV» «T(2Swi3) f AV<2&0) 

CUMMOn/TPKOP /tPS(250f3 * »PkT (?bui3) i«LtT(7&C»3) 

COMMOfi /vTAPl.t/ yTJL( 2^UI ft3('P(25u) iH(»PP(2«C) t lYTlLPi lYTILF » 

, CYT!L«6» 

COMMON /M A IPX /A(2'^Wf3)fBI2c,t) 

COMMOi /rrvLC /t ( 75,.. ) ( 2fO ) 

COMMOr /Sir,MA5/Sir,| (3) »51Ci2(3) *S1G3 13 J tSIGHO) iSlGSCJ) •S1G55I3) 

CCfinnr. /Z(AIC/ ?FTAO.ZETA.ztTAN.2tlAM,ZSTAHY3> ,052(2) iYZETa, 

I YT7£TA,YErGt 

COMMON / A LL 9C / r* A LL ALL all, bMDPO, SHOW, SHOWN 

COMMOfJ /f.OGtBC/ TEOGE,Bt<fP(,t,HLDGf ,UtOGt,pCD(»CB,AFCD6t|DyEDSOt 
I nuEOS ,C)UEOsn ,npEOSN 

common/ MORMAL/ mPFF ,OKtr iPhOHKK ,SMUPEF ,PEY IMF 

COMMON /rOMST /S!N|T,XIN1 T»x^* AX, DELIA), SM ,SN2 , Sn3 , EPSLN 1 , EPSLN2 , 

I ppsi n3,convR(,,p2dy ,04uY ,opvsg 

COMMOi'/fOUNT /fjYtNY I iMY2tFJY3,jO,JN,jA,NKL,NELl ,hSP ,NHAX,NY I 
COMMOt^/NE .. 3 / AFTRNS,PLA»’ 

C 

c fOP FACW FLEMPnT except Last* tVAtNAlt cOFFFICitNTS Of SYSTEM OF 
C ELLOF-HT cONPERV*T|ON rOUrTiOfS. 

c 

s; OSS t I ) «S I OS ( I ) 

S J OSS « 2 ) »S iCiS ( 2) 

On BJuO *NL|.I 

STG5* I )»S;OSS( ) ) 

S!05(2)f*S10SSf2» 

lNCPMr«:r 

1«2 

C 

C rALCUL/.TL TFMPOKAKy OUANTITiI.S. 

C 

? BE • MM 

BF*«F ( 1 » 

SI 05 ( 3 )aSMU(W|,.IA)«BLE{l^j,JA)/MK(I^i,JA)^ 
f FPS(I*ltJA)«RLET((4i*JA)/PRrri+l,JA) 

SlOSYa(St(,S(3)-sir,5( I ) )^02 uY 

AY/1N«(AlPhA( !♦! f JO, IFL)- ALPHA! )-l ,JO,?EL) )*020Y 

AYYHN»(ALPHA( !♦!,. jo, 1LL)»2, •ALPHA! 1,.IQ,IEL)^ALPHA( !•) ,jO,lbL> )♦ 

) 0CY5Q 

TrRM«BF*B(ilMn*Sl5S(2)*OOY5Q 


/YT able/ 

/ytable/ 


✓ZCALC/ 

/ZCALC/ 

/EDGEBC/ 

/EDGEBC/ 
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o r*. r> n n n rk r» ri r> n n n o n n o n rs 


Tfl i*H<,PP C 1 ) *S I Cj 5 ( 2 J / URP ( I) ♦hGP ( 1 J *S I GSY 

Tm2«RsOV ( I ) *H(;p ( I ) 

TM3«RH0( I ,JA>»U< I ,JA>/DS 

^OeFP* or iN-l > 

f^OFFF. OF ALP»U I I ,N > 

A( I-i •2^»rri3*TF«M 
rOFFF. OF aL^HA 1 ( I tN* J I 
A( I-I ,3)»-A< 1-1,1 )-Te^?M 

pIr,Mr-MAMU Slue f I NiCLUi) I N(, TtRM Op.TA*Ntn FROM MOMENTUM 

FCJUATIOMI 


B( I-I )aTH3*A(P4A( I ,J0 ,I£L),j.S^T« 2«ATMN4 
1 0«S^RF*(TMi*AtMN^A(ipif»«Sl't‘a(2)*AYYMN)4b#b*aE*AYMN#U|IfJN) 

pUSh-D STOWAGE 


S IGS ( t I GS ( 2 ) 

I»1 ♦! 

IF (I .LF. nY I ) TO 1 JO 

mOHIFY FtPSr ANO LAST FUt^F^.T FQUATinNS BY BOUNUaHY CONDITIONS# 

iFllFLfPO.?) GO TO 25! 

IF I P4CR IT *GT .1 ) GO TO 25o 

B I GAaPE Y IMF*2FTA*7tTA»SM )W#PlU i ,JA)/ IBGP( J )«SMU( I »JA) •BLE I I #UA ) ) 
OFNOM*?,*or#RlCjA^3. 

AnTPNS » 1*o-AFT9mS 
A(i,2>*Af|,2)*.4.«A(|i!» 

A ( I , 3 ) ■ A < I , 3 ! - A ( » , I ) / Ot NOf1 

liJ i )*.H I )-A( I , I )*^,♦OY♦H^GA•AFT•<^•5/□t^iOM 
A( I ,1 !*o* 

2Sri Q(’lv2) » 3(MY2) - A(NY2i3)*AFFDGf- 

A/.4Y2,3 »3^^. 

GO TO ?S2 


251 IF( INCRmT^GT#,.) go TO 2b3 

All,.?) • All, 2) ♦ H.*A< I I I ) /DENOW 

All, 3) ■ All, 31 - Al|,M/l)ENnM 

Bin * Bin - A( I , n*2«*0Y*HIGA»ANTkNS/0EN0H 
A I 1 , I } «u • o 
1’53 AoEO(,K«.j, 79,. 

U ( UY 7 ) »IU UY 7 I - A I OY2 , 3 * * A lEoGE 
A I NY2 ,3 ) m,j*n 


252 COMTiriUF 

SOLVE LirOFOT EOOaTIOnS F'»W ai.PH a M M-> J , N ) , N « 2 , 3 , • • • , N Y - | 
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on o o o o o o n 


CALL TKIM (A,ALPHA(2iJN«ItLJ»«»NY?,N«AX) 

HOUMDa*<Y CONDI T lorjs FqP ALPMAltw^ltO A^*D A LPH A M M ♦ I t N Y I 
ir( GO To N^ti 

ALPHA I IKL)*(N*#ALPHAI2»‘J^^* JN# !EL>^2#*DY*BIGA* 

I AFl KNS J 

alpha < MY , j?4 , I KL '■ Af EOGE 
GO TO Mjiiv 

ALPH A I 1 , JH , I HL I ■ ( M # U* A|. P h A ^ 2 » » I KL ) - ALPH A ( 3 t JN , I EL ) ♦ 

\ A I GA« AU TRNS ) / t)£rJnM 

ALPHAfNY.»jL*TEL>“ANtOGt 

IE'S! = ( ALPHi ( N^'l , JN, I CL ) - aLI^HA ( NY , jn , tFL ) ) / alpha I NY , JN, lEL) 

1 r ( Af 3 :> ( TF ST ) •LE*FPSLN 3 ) HO rc Hui*n 


$01 JTIJN POLS NOT aSYPHTO T I (- AU Y APPROACH EDGE CONDITIONS* 
fNCi^FASE IhICLMESS OF BOUNOy^pr LAYtK HY ADDING ONfc POINT. 

I s 1 NCPHT*- I 

IF( INCRMT*6T.S)CAlL OF BUG (GhF.LFpTS) 
iF(NY*r0.ri MAXICALL DEBUG I^,hflCMTSJ 
CALL APOPT 13) 

I « rj Y - f 
G 0 T n 1 : . i 
CO.^TlHUr 

rAUCuLATL Mass fraction of element (neL) AT Each hesh point. 

DO SUi U l«i|NY 
SiliiF, L« J« 

DO IFL*<*rnL! 

J F ( alpha ( I , jrt • I FL ) • LF *U*‘i ) alpha ( I , Jf4 , IFL ) »0*u 
HSt .i StJMFL ■ 5UPEL ♦ A L P H A H ♦ ON , 1 1 L ) 

S-DL ALPHA ( I , JN ,NLL ) » I.D - SI'mEL 
return 
trJD 
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n r> n 


SUbPOMT I MF Fr)Ff<r,Y 

CFN»^WrY S^Lvr FYSTKM Of E^■tHCY (: ruAT I ONb FUR EMHALPY h|M^4,Nlt 
C 

COi*!‘^n^/nf • 3 ) .H l ,3) , ALHhA ( 2&u t 3 . J ) iRHOV ( 2&0> >SH( 250t J ) 

COr.^'O:./ TfOF F / S . U 5 i X , t X . M 2 ) t 0 Y 

CO’»HO I/FRUP /RhO(2SOi3» % 5mI‘ « 2E.U , i ) ,Hp(25C ,3) »bLt(i5w#3l • 

1 3HT (2S0tZt^) ,5CI (?S0i2#9) ,T(2SO#3» iAYC2S0> 

COMMOf'/TPROP /EPS(250 i 3) ♦PRT(2Sbt3) •BLETf25o‘t3) 

COMMON /VTAPIF/ YTIl(2&C) * H ^P P ( 2 SC > i I V T I LP | 1 Y T | LF # 

? CYTIL«6) 

Cor.MON/MA 1 f»x /A ( ?Sw • 3 » iH J 2 ) 

C OMMOf /FFVLC /t ( 2So> #F < 

COMMOf:/SIGMAS/Sir, I (3) *Sir,2i3) ,srr,3(3) •Sir,H(3) ,bl(i5t3) tSICi5S(3) 
COMMOf:/i*.‘ACLBC/T^r' all iSHWAI L ,H’AALL f bMO'^0 i SMDW , SMUWN 
COi^MON /FOGFOC/ Tf.ottF »SHF.n(,t , HEDGE lUtorjF , PEDCiE tt ^ AF E DGE , OUEOSO , 
t MUE05 ♦l)UKO<;r: ,r>PLOSN 

COH^O^{/CO^T>T /S ! M n f X I N I T , X ,f)^ L T M ,SN I , SN2 , Sh 3 , t PSLN 1 IEP5LN2, 

• L^’Sl N3»COf47Kf, ,(,2DY ♦OHf.y tOOYSW 

COM;-ov*/»-nUNT /NY , f; Y I . N Y2 » Ny 3 , iU • viM • JA , NEL , NfL I i M SP | N M A * , N Y I 
C0:‘..40N/ I Dt BUN / I Ut F4UG ( 3 ) # E. M () O M P , K F M U H P 
C 

C pVALUA^t COfFFICIF^TS OF Sys’EH OE LMtRGv F^UAllONS* 

C 

I MCW^ I «t 
1*2 

rAlCULATF ILMPOPAHy OlMNTlTifS* 

I BF a F ( T ) 

BE »r u ) 

T 1 » E M S ( I ♦ 1 . J A J 

T2«50U( !♦! »JA)/PK( !♦! ,JA; 

T 3*T 1 /PRT < I ♦ I , JA 1 
S T 3 2 ? 3 ) a T 2 ♦ T J 

b T fj? t 3 ) »?ru ( I ♦ I . J A ) - T2^T 1 - T 3 
SlGN(2)*72*(PLEi !♦! |JA)-i,)fT3^(MLfc I { 

SIb2Ys(SICi2(3)-SIr,2C!)»*0 2tiY 
5lG3Y»(MG3(3)-Sir,3tl))«02bY 
SlGMYe(«;iGH(3)-SlG‘4(! ))«0 2n^ 

UYMf.’aUi' \ m\ ,JO) )*C;2L'Y 

UYYMN»nifI'*-l»JC)-2.*U<IfoOj^M(I-|,oOI)*OOYbU 

hYMN«<MI !♦! I-l tJO) )*02DY 

HvymN*(H< I + i , J01-2.*M( I 1-1 .JOJ I #00 Y SO 

TrRM»BF*PGP < n *5 I g2 ( 2 ) •ODV^O 

TMI-BGPPf 1)^SIG21 ?I/RGP( lUPGEM I )*5|G2Y 

TK2»«H0V i I » «rtfiP ( I ) 

TMisRMOl t iJAJ«Uf I ,JA)/OS 
TERMU«pr*HGP< I J*SfG3C2l«OnY^C*U( I tJOl 


/ytable/ 

/YTaBLE/ 


/tUGEBC/ 

/EUGEBC/ 
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c 

c 

c 

c 

( 

L 

c 

e 

t 

c 

c. 

c 

c 

c 

c 

c 

c 

c 


c 

(. 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 


1 ►I’ I * < : ) ♦ S M 3 ( 2 ) / HC.H ( 1 ) ♦ f C fM ! ) • V ! G 3 

ruLF ► • or »- (h+ j ,t - I ) 

( | - I 1 I ) ♦ W.r *u h # JO * *T^ ‘ ^ * * -i>*5^*TEKH 

rOf F F . Of ‘ ( ) 

*. < i-J ,2)sTru3-»Tf->o 

CC’E f F . OF f‘ ( I ,M4 I ) 

i, < 1 - i . 3 ) e - t I - i I n - T F K F* 

f. 1 r,rO -MAf (> SIOL ^liMCLUniMF, It-RMS OBTAINFU FROM MOMLNIuM 

tCUAT I OF ) 

rOFFF. nr L(M^I |N-» ) 

CrtFf I '^•HF »hgR( I )*51Cs3<2)*nYMW-u*b^^ t H wu 

rOt FF • OF U ■ ‘ * ,F' J 

CrtF r 2 »-C .S» < f F*» vMN^HF , , tnMFM - 4,.S*BF*BGP c n »s I r,3 * 2 ) •UYYMN4 

1 ''FKOU 

0 F f r • o f i • f F* - ! , r I ) 

cctf F f PF »*Tf Whu 

rVALlAlE ^ri-.KATio*^ OVfK SKt^lF^ 

S V M 5 P * t • 

OC I bi, I5P» I f F.SP 

c;TrKr Tf-rrCKAKY AVFAAGtS* 

Lf P' I A»t •» - ( 5 I M - I • JO I I M’ ) ♦«:►* I M - 1 » w»N , 1 5P ) I 

bhl/* * jO I I tP ) ♦fr I ( 1 *jfJtlSP)) 

SHlPlA»L*b*{*^rl(l4| |JfJ,lSP) I 

SC n I A*i • b* ( n I - I • JO , IIP ) 4f.f 1 i I - 1 , • ISP ) ) 

SCiA » JO I I SP ) •♦ SC I M ..ihtlSP)) 

SC i F I / *1 . f • ( SC I f I 4 J » JO f I Sf ) ♦ SC I M ♦ I • ^r.‘ , I SP ) ) 

S<-IY»0?[ Y» (<in;P|A-SHlM|A) 

SCi't*t.2rY»(5r:PM.bCiriA) 

SCMY»C)OYSO*fSClP|A-2.*SC!/pSriPlAl 

SUMSP « 5l»p!SP ♦ r»^IA«5ClY*(pGr(i)»SlG^Y ♦ B6F'P(I)*SIG‘F<2 )/BgP<I)> 
» ♦ r GO r 1 ' • S 1 GH ( 2 I • < S*^ I I T ♦ SHIA*SCIYv) 

aSSIf^PLF All TffvtS. 

b( I-J I ,jO)«^,b*(T>^2*‘^^^'^*'"BF*lTMl*MYPN^BGF*( I)»SIG2(2)* 

1 pYVfr. )»♦^f*suMSP-rrErF!•ocI-ltJ^J)-coFFF2•u(l•JN)- 

2 r Of F F ?• l l I 4 I * JIM 

PUS►^-^o«-^ SIOFagF 
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on r»no r>or\ n r> n o n o 


\ )»5U.?(2) 

5>li2(2)*5lt2(3) 

5>IC-3< » )«Slfc3(D 
SiG3(2)«SIC,3(3) 

Sl&H< I )»SIC.M<2) 

Sl6‘4(2)«Slf.*^<3) 

l«I*l 

IF i I .It* ^.> 1 ) f,0 TO I LO 

C 

C modify first AWO last energy tf.'UATION5 0Y BOUNDARY CONDITIONS* 

AT WALL H , 

at fdge h * hf 

IF( INCRMT.f T.^ )CC TO 25t 
b( I )»R( I )-A( I , I I^HAALL 
A n * M »c • 

2hC B(NY2) • b<NY2) • A < N Y 2 , 3 ) » hE DgE 
A (NY2#3)«L* 

cOl. VL fNFRGY FCLAlfCNS FOR Ns2»3t***tNY*l 

CALL trim tA*H(2iJN‘)|R#NY2,NMAX) 

^HPLY B01‘NDARV cONniTlOMS FqN M(M4.i,|» HtN*l,NYI 

H ( I , JN ) all 
h(NY| JM)»htOGr 

calculate SH(M4|,M) from N*I,«.*,NY 

L 0 3 0 c ! « J f N 

3if> ShIIjJN) * • U( I , Jm ) ••2/2.C 

pKINT DEBUC for this ITERaTjON, IF KERUF5TED* 

C 

IF(FFNOMP*gT. . )CALL nUMPJT 
Test * ( h(l»yi,jn) - hcmt , jN) j/h^ny t jni 
IF(ABS(TF5T).uE*EpSLN2)REToWn 
c 

c SOLUTION 0CF5 NOT ASYMPTOTICALLY APPROACH EDGE CONDITIONS* 

C INCREASE ThiCKNESS OF BOUNDaNT LAYER BY ADDING OnE POINT* 

C 

IriCPMT«lNCRMT*l 

I F I 1 NCRmT • gT • S ) ( A I c debug (AmLnFmgYI 

lF(NY,tO*NMAX)CALL DEBUG I^HFNLRGYJ 

CALI ADOPT (2J 

I«NY l-l 

GO TO ICO 

END 
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SUK.J^ni.T ) MF FXrCliT 

r 10 SlHKOUTlNt Fx^FOT 

crvf(. 1 f>rroiiofi con’^hol hchjTjmf 

(; 

COhUru/rFFf MrvO<?5*^.t3) iH<2sO*3)»ALHHA(2SC#3»J»tPHOVf25C)#5H*2bU*3) 

C C f • M 0 r / I N 0 F. P / 5 f S * X » D X t Y ( 2 b t ) • D T 

CCMMOf./PROF /RH0(2bui3* •SML)(2bui3* i^P<25:j»3* |BLt(25i#3l t 
) SHl(2bU*2tY).SrT(2Su,2i9)iT(2bu.3)|AVf25»3l 

rOMHnr/TPROP /tPS(25iif3) #Pr 1 ( 2bo»3J fHLFl <7bpt3) 

COM PON /ZC/LC/ 7FlAO»ZtTA,7LTAN»/t. IAf,ZSTAh(3J iDSZ(2)iY2tTA, 

, YT7tTA.Yt06^ 

COMPOr./rALLPO/l^ALL #SrW»ALL ,H^ALC .SMD'^n*SMpW ,bMUWN 

tOMl'Or /FD^F HC/ IFO^F iSHfnfji.iHtOtitiOknGF tPCObEbfAFFnGttDUFOSOt 
I nut ns , DUt , r he ()Sf4 

C C' ^ O ^ O / r-i f' h . < A I / H M'" f F I O P fc F | R p F F * S M U K t F | P E Y I N F 

CCPMM«/rn*;ST /!» ro I T , X I M T , xOAX , OF L T A I ,SM t SN2 »bp3 ,LPSLN1 i EPSLN2 • 

, EF*=L N3, COP VKc. 1020 Y ♦OHUY •OCYSCJ 

CCMpro/r CA'M /pYjNY 1 |PY2iNY3».K'i»iNtJAfFjtl •F*FLl tNbP »PMAX|NY1 
COMKOf! / OF 1 I orj/ I fit AL » I A 1 I OPP 

c 0 H r. r . / S T A 1 O / I s T A T FJ , F- A X 1 T ^ ’ 1 F P 

cc I Tr /NSFFK T , f LPF f.T ♦ ! bPFMT , ) LPPt T .LPbPPf, ft I 

Cpr-nfi/ ‘iiu A R Y / SOP aKYI Ib^JU) iFWtCt^’blA,lSTA#NVA^»iORUMfCA5T 

cotinoo / ! f-cP U(./ 1 Of «Lir, ( 3 ) # ► MoOf »* i kenOfp 

COMMOfi /PST APT / I fsRD , IPS , I UPE 

COMMOf^ /AL/ T mST A T * FPbl I 
COMMON /('HOF'/ C''«,(2St |3’ *^*iv(7bj»3)fCVV(?bCi3),CAF*<2^Ci3)fGAMAfZX /OmOMI/ 

CGMF'Ori/u;- > 'ij / i 


MAl.'f LN». 

C 

^ n h G ' r A I. r 0 I A T t 0 n of a. E station. 

c 

2^ .i 1ST a1 N » I SI 1 

IF I : S T A T r ‘ • ! T • I ♦ . 5 T A T > f. To 1 J *» 

LOSLN. * f.fSLlh 
L f sun;* a: r P SI i N 

EPbl N i = F**M. IN 
I ; • ITER « 

C 

C rHECK ^F mHUS \'^ ON, 

C 

F MOD^Pe V 
KFNOMf’«ui 

IF ITOFFNCiCiJ .LF, t* 2^0 

IF (ISTATfj •l.T, lOER'Nil2» ,0P* ISTATN ,GT, IUEBUG(3)| GO TO 2H0 
I F I T or MUG ( I ) , E M KHOOMP* I 
1 F I rif « i ir, ( I I .f >;• Z > fkFNOHP* I 


/ZCALC/ 

/ZCALC/ 

/LUQEBC/ 

/EDGEBC/ 
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c r^ETtRMlNF NE < STEPSIZF AND c;nf4TUUK PKUPERTlES AT FOK»AAKO STATION# 
C 

2HT call STFP 
C 

C c''LC<»LATr ZETAN AND ZFTA FOr I TE« • Q* 

;C 

ZFTAN«7ETAO^OS#zKTAP 
ZCTA«.1*5» ( ZFT AO + ZFTAN J 

c 

c rVALiUTK 1 ^,'aLL AND EDGE COwojTIONS aT I-ORWARO STATION# 

C 

Cali. nMncMO 

C* Thlr TCSI PHR EiViALirv OtlWtr.N .non- I N r tC,tRS may not dt MLANINGFUL. 

I r I smdv«n#hc • j. ) madklg* i 

c 

C pFGtN TTT ration loop, 

c iiPoatf shv* and m*v baSlo on t aif;st !)/► at Wall* 

c 

0,.o 1 F ( I Tr5?.(,T #;j ) GO TO 301 

GO TO 3-i? 

C* THF TtST FOP EOOaLITY PETWtFN NON- I M F t Gt »5 MaY NOT Bt MEANINGFUL* 
1F( t I»JJH?*EO* 1 ) • AMO* (SMD^N,ta«u*L) » GO TO 3U2 
ir(<lOEAi.cQ*|)*AMO*(INjH?,e.O*l)) CALL hOODe<3) 

IF( IDLAL.EQ* j) CALL HOODF ( 3 ) 

COMTIfiUE 

C 

C ifPOATE average PROPERTIES ArgO CALCULATE AUXILIARY QUANTITIES FOR 

C UIF^FL*EOCE EOUaTIONS* 

C 

CALL r T E R A T 
C 

C GULVL momentum equation for O. 

C 

CALI. MOMNTM 
C 

C update A'/rpAGK U FOR SUflSf mT LNUATIors* 

C 

I F < T NC0MO.r.T#v ) GO TO 37U 
DO 3 2 .» I « i , h.| Y 

32> -UIIjJA) « J.s.j* ni( I f JOI ♦ u<I»UU)) 

c 

c SOLVE ENERGY EOUaYioN FOR H AMn Sm, 

C • 

CALL ENF*^CiY 

IF ( f 10EAL*EQ* i I • AMD* ( INJH2 ^KQ*u) > ^0 TC 3RC 
in MADFI G*E0*.^)GO TO 3RU 
C 

c SOLVE ELEMENT EQUATIONS FOR ALPHA J . 

C 

CALL KLFMTS 
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C CALCULATK UAMIHAK TRANSPQkT THtH^lUD Y W A« I C PHOPEHTIES AJ CACW 

C MFSH point, 

3<4u I r ( ( 1 f)E AL* CO* t ) • AND* *1 N Jm2 , EQ • 0 > > TO 

C* THC cop EO<*ALirY HET^tKN NOli- I N I t(it P5 PAY NOT BE MEANINGFUL* 

IF ( S^0WN,LQ*0*0> GO TO 370 
call HOOOE (M) 

GO TP 370 

3*4S 00 2S<j I ■ ItNY 

5hB«SH< I . jN)«UHrK*UREF 

CALL I60DE ( f( I , JN> , SHB ♦ PEnGE « * U i PHOH , SMUfI , P« I 1 ,JN>) 

KMO ( I * JN) «RHn?3/KHnKEF 
3Hn 5MU(ItJN) » SMUB/5MUPEF 
C 

C uFOATE ZETaN, ZLTA, and ZFTaF. 

c 


37', Call zfunc 


c 

c CALCULATE TUPMULFNT TWANSPOrT F’ROPERTiES* 

C 

1 r < L ammr, gT*u » GP ^0 380 
CAlI. eddy 
C 

C jNTEG*^ATE continuity EQUATION TO OBlAiN PHOV • 

C 

38q CALL CONTNU 

C ?F ITEPATINf, ON SOLUTION, ChFC< FOR CONVERGENCE 0« MAXIMUM 

C ITERATIONS* 

C 

ir IMaXIT .LF* GO TQ 

IF (I TEP *nE. iJ > GO TO **2^^ 

DMDYO » O20Y* < N *L»U < 2 # JN * • 3*0*Uf|,%»N) • U53,JNl) 

iter-iter-m 


GP TO 3?1L 

R?0 DU0Y*1^2DY«I-U(3»JN)^R**U^2,JN)-3*^UI 1 fJN) 1 

I f ( ABS t < DUL Y-DUDYO ) /OUUX i • ^F • Cun VRG I GO TO SOU 

If (ITER *GE. MAXJT) GO Tc SOU 

ITCR » ITER ♦ I 

DUOVO*nUDY 

60 TO 3LL* 


C 

C r N 0 OF 


Te*<AT|ON LOORt 
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n o nor> onnononno 


C 

6b0 X » < ♦ rx 

c 

C CALCULAtr C.KOSS PCUNOaRY LAyFR PAWAMPrERS, 

t - 

CALL f^ARAf.S 
rHrCK for end op CAbit 
ir <x ♦ l.Lt-6 .CiE* XKAX) GO TO 9uU 
pWrilT at this station if PEo'MPLD. 

CAuL PRINT 

calculate 7ETa Afn ZETaP FO^ NEXT SIaITON. 

Z F: TA P*CZtlAN-7STAR (!))/( oS7<M*DS I 
ZSTAR< I )«ZF TAO 
ZETA0»ZETAN 
USZ( I )«DS 

move forward values TO BACK VALUES# 

on I » l f ny 

U ( I f JO j »U ( I • JM ) 

H t I • JO ) «H < I • JN ) 

cuu( I • jo» • ruu< I ♦ JN> 

CUV ( I • JO ) ■ C U V ( T , JN ) 

C V V ( I , JO ) » C V V ( T , JM » 

I f JOI « C.U^4{ I , JN) 

DC SHl tEL*l#NEl 

5Sr Al PHA ( I , JO , IFL ) ■ ALPH A ( I * jN , I EL > 

RMO( ! I jn)»RHO( I , JN> 

SF J( I » JO)«SMU( I , Jfj) 

PP ( I I J0I«PK ( ! , JN> * 

0|.t:( I f J0)«&LE( I t JH) 

OG 59w ISP* I ,N5P 
ShI(I,JO,ISP>»SH|(l,JN,lSP) 

ssr Sr I ( 1 1 JOf I 5 P 1 ■ sr I ( I I JNi I5P) 

T < 1 t JO ) «T I I , ) 

EPS( I * JO)*EPS( I , JH ) 

POT « I , JO ) »PP1 ( I , ) 

6L(; BLLTMfJO) « 0Lt.f(I.JM 
CO TO 2UC 

r^'O OK station calculation# 

fND or CASE# print FINAL StaTION# 

Vl? ISPRNT * c 
I L p R N T » L 
LAST»I 

- CALL PRINT 
CALL bUPTAP 

IF( IKSWR.UT#.. J£NO FILE ITApt 


KfTUPfJ 

END 
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bUBPOUTpit HOOPt (ICALL) 

r TrC«L - Opt HulLKKACf S L* M 0 D T ? N t FflK H Y D K 00 E N - U X V OE N SYSTEM* 

rFcoL rOM^tr: hlCCK? 

COiVM)M/OF PE »in/U { ?^ w ) I H ( 2r,L^ » 3 ) » ALPHA ( 25U • 3 * 3 ) f-T^HOV ( 2&C > t SH ( 2S0# j ) 

C0MJ10N/ I riPE P /SS ,05 I X »DX , Y ( 2S^' > »n Y 

CCHMON/PKOr /KHn(2Sc»3) *SMU(?bLi3» fPPNiO(?bO*3> ,bLE(2^0#3) i 

1 ShT (250,21*'), SC M?^L,2f9),Tc25•i^•3|#AV<25J) 

c n I ^5 n N / X r A L P / k V T A B ( 5 u w > , x f a b p i'. < s l ) • t k <x t a b , i k a x F' , C p ^ ^ > , 

1 PE. TAB(5fiO)iXyABr‘fc<5o^)tLPETAB|iPExP,CPEX(6), 

UETAb(SUu) • LUttAb, IULXP,CUEX( A) , 

•> XT^^>‘-X<bLu),inUDXT,lOUPXP 

C fj ri '^n.i / • M L P 0 / TX f I L 1 HVv A L t. a L I , , S^Ow » SMPv N 

COMPP' /FPOLPC/ lEOOF ,5 hE .):,f ,rEl‘f-*E fOtnOF. , DO t b , A F E 0 0 1 , pU t OSO , 
PULPS, DLF Os^i^PE ‘-iN 


C C P ^1 / ^ C »' F A L / B I. P r F , I ‘ P F F , P H f F F , K I P t F , W E V I N F 

C C .i ’Ori / r C I T /UY , Y I , NY 2 , N ^ J , jO , JN , j A , PEL , NEL I , ^:5P , UH AX , NY I 

COHF nri/S T A T N / J «;T a T N , M A X | T ^ I T E ► 

C r M M n N / p r 0 f S / o a p m a , F m o l t , f k ) 

c 0!^r*n.N/Nt V I /At F‘^ I S, ILL' I ^ 

C Oi^HON / Mr /. 2 / k HOE 0 * SMUF p , fr t X t. , S X U 
c CP »' 0 j / MF » / 1 YE 0 

crr.r Ou/Nf; 1, /aPPPF(Su) ,ThYf'/> ' ,LAHk?OF ,IAYP,CaYX(A) ,AFrf<ALL 
CC f;N 0N/P9 T A k T / I PSPO , I PStf-’P , i Y A Ufe. 


^UE CO-HOP BLI'CkS 

C r. J. 0 r. /F (■ 1 N 1 «- / m<suH M 3 ) • SsP’^' ^ I ^ * 1 LkP ( I 3 ) ,DL V TP f I 3 ) , DL VP T ( 1 3 ) , 

, rv.AS M 3 ) , P ( » 3 ^ • T ? , rPP ( I 3 ) , ( 1 J ) , Sur VEL J I 3 » # 

7 M T ( ! 3 ) 

" CdF MUs / Cf. t CES/COF f (2,7,2'^') , S ( 3 j ) , EN « 33 , I 3 I , ENLM I 3L ) , ( 3C ) , 

{ uK H < 3o ) I A M , 3C ) 1 SUb ( 3C 1 3 ) , I 05E 1 30 ) , TEMP f be 1 2 ) 

C 0 M M 0 r J / M I 5, r / £ N M , s U M N , n , i :j , A T f' ►< ( 3 , 1^5) t L L M T ( | ^ ) , b ''» < IS) ♦ 
t B P(iS,2)|Y*\r!/d-.,YPII»,THT0H,PP,CPbL'^',0F,rWHAT, 

;i , WPP ( 2 ) , *• :m - I 2 ) , V H ) % ( 2 ) , VPLS ( 7 ) , ..P ( 2 ) , 

t NAMf ( I S ,S ) I ( 1 S • b ) , F'LCAT ( I S ) , EF' * H M b ) ,F A2 ( I b ) , 

t, PTF'mP ( I S ) fF 0 X J 1 b ) , PE N^ M 5 » , TLN 

COr'.MOii / 1 f D X / COO VO , Y'P , MP , <jP , •‘MIL f b , NP , NP T , L , Nb 1 Ph A T , 1 M at 1 1 Q I t NC , 

1 JSOI , Jl. I« , I c , 107 

C 0 /. ‘MV 1 / V ! S C ' o / V T S C L M 3 ) • p P » » 3 ) 

C0< ;M / ? url^E / T 1 ( 13) , OF i N ( 13) , f* ! H 1 I 3 ) 

Cr,r:M::./ni - ont/ ;u,rt F ( 3u 1 1 3 ) 

COHPfMj/r.U 1 KhO/OFF' ( I 3 > 

C0PMO(g/H7TNj/ 1NJH7 


/EDGEHC/ 

/tOOEBC/ 


/PO 1 NTS/ 
/PO 1 NTS/ 


/MjSC/ 

/MiSC/ 

/MISC/ 

/MiSC/ 

/MJSC/ 

/ INDX/ 

/ 1 NOX/ 

/ V I SeXQ/ 


foonnr»nrvoon onnnn o o n o on non 


C 

LCOirAt TP,mp,5P 

f) I KCNS ION I NDFX M .n iTMIAT < V ) 

c 

C Sf^tCUS MOltCUUAR WEIGHTS bjOHtU TN f HWT IN SAME URDER AS THEHMO 

C DMA, NAHLLY <l) m 12) hz (3) H20 ( <n o <S| OH (6) 02 

C (71 N (R) MO (91 U2 

C 

DATA (FM^^Til) »I«I »6)/I«LuR92«JlA»|H<i;|A|l6«D-^Utt/«Cp8i32*000^ 

Data (rMYT(n,Ii*7,9|/lH,u08»3j*Ou8f28tGI6/ 

DATA Rj*S(,/7 77.6«v j6f 3 2. 1 7 h/ 

fliRAHCH TO appropriate LOGIC. 

GO TO ( 1 i:t v • 2; L • 3 uC D i RU»u ) , I C ALL 

♦•••• ICaIL • 1 

initialize OOP storage ANO ('ALCULATE conversion constants for 
tfcrl - oni. iMiFPrACE. 

call i)0E 
NSP»MS 

^ constant --.--oT CONVfcKTii a TPC0L WUAnTITy TO AN OOE QUANTITY AND 
iNCLUnt'S NOPM„L 1 7 A T I ON FaCt^>R5 WnEKF APPLICABLE. A CONSTANT -•••TO 
converts an ')c>l quantity To a tfcbl quantity. 

SHUT0»1./(SG*SMUReK) 

hot "uwFr •uRFr/ t I • R*Pj*Sr, ’ 

RHOn I aSC-^PHOKEE 
return 

JCaEL • 2 

P|0 AN ISFNTPOPIC EXPANSION, G|VtN PKtSSUPt ANU INITIAL TEMPERATURE 
AT THE FOGF OF TWF ROUNOaRy LAYEWf ANq CALCULATE AW EDGE VELOCITY 

Table. 

PERFORM initial T-P CALCULATION To ESTABLISH ENTROPY, 

:.u P(l) a M , 72S ■^9S7Sr-R#PE0GEp 


T^»TE0GE/ i . A m 

C ••••• OF IS EQUAL TO FUFL/^XTUI^tK «tIGHT RATIOi MAY |7il973 

OF « AFEDC.L/ ( 1 .- AFE06E ) 

C 

C iiSE initial guesses FOR EN(i,ij ANn CNi.MM ALREaUY CALCULATED 

C BY OOE. 

C 
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ri o n n 


NPT«l 

TP«.TKUF» 

HPs*r*LSF» 

SP»tf ALSE. 

CALL TPCALC 
C 

C SAVE ENTPOPT AND CALCULATE VELOCITY. 

C 

50»SSUM« 1 ) 

ShCOGE • I ,9A7 U>6o*H5UMt I 1 /HOT 
HF.uGL»5HEDfiE + UEUf3E*UFD6E/? , 

calculate khoeb and smued fop initial zetap calculation, 

RHOEH-OEN ( I ) /SG 
ShUEH-V I SCK I I I /S« 

PROCEED THRU PRESSURE TABLE WITH 5-P CALCULATION*. 

C 

IHO-1 

sp«,tpue. 

HP*. FALSE . 

TPb.F ALSr . 

TINin ■ TEOGE/I.PU 
202n t>0 2UO IRUr ■ ltl3 

PIIBUF) ■ *»,72S39576E-*«.RtT*'»< INUI 
IMUEX ( IBUF ) ■ IND 
I ND« I ‘!0+ \ 

IF( INf -l PETAMZlU- i^lPOi^l lU 

2JOd CntITIUUE 
2110 NP-IBUF 
NPT ■ 1 
CALL SPCALC 

C 

C obtain answers from oof output huaalrs. 

C 

DO 22c»0 IBl'F«l,NP 

She ■ I .9P7|AS0»HSUM1 IPUM/MOT 
I X» INDEX* IBUF I 

22uC UETaB(IX) > SDRT«2.0*ABS(HE(’fiE - SHE!) 

If <ind *gt. lpetabi return 

c 

C store NUrSSES for *'EXT call to SPCALC. 

c 

T I W U ) « T T T I I 3 I 
00 223C I«I,NS 
223c EN( I • I I - ENI I . 13) 

GO TO 2U2L 
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S 


n o 


’TaUL e 3 


C 

c 

c 

c 


ptPFORM A T.p CAI-CULATlOr Af tnE «aLI TO OETEKhiN't HWaLU BOUNOAKy 

counnioN. 


31.wM PU) * M.72b39E;76r-H*PtDC.ry 
T?»TK;ALL/ 1 *81 

I r ( « I ST A M. .GT ) .OP. « I 1 £K.C|T .»>) ) GO TO 302G 
C OF IS EWt^AL TO ► U fc L / 0 X I D I 2 1 K WEfC^HT RATln, MAY 4 7 » | 9 73 • ♦ • • • ♦ 

OF » AFY'ALL/ M .-AFWALL) 

00 31MU T«I,MS 

I I I ) « t. . J .. /NS 

3.. I ENLN ( I ) • Al Of ( EN ( I , n ) 

GO TO 3C*»i 

c *•••♦ OF IS ryOAL to FUEL/OIOI ZLH »FIGHT RATIOi may 47il973 


3C?U OF » ALPHaM » JK. I )/(1*-AUPhA(I ,JN»I n 
00 3U3C fs| *NS 
Cr < I » I » *S(. I ( I , JN I I ) / FM^A T I I j 
IF ^ t tK I » I ) .LI . I .F-»6 ) t N< I • I , a I ,L-A 
3 o3v tMLFJiM * AlOG I EN ( I , I ) ) 

3t*<C f^PT *■ I 

TPe.TRUE* 

HPa.F Al 5E. 

5P». FALSE. 

CALL TF'CALC 

SHAALL ■ I.VF 7I6S:.*HSUM(|)/HCT 
MlAALt*SHttALL 
return 
C 


c *«***ICaLU*^***** 

C 

C PERFORM A SERIES OF H-P CaLcUCaUONS ACROSS THE BOUNDARY LAYER TO 

c Obtain the thermodynamic ani> laminar transport properties at each 

C MESHPOIF'T. 

c 


HP a .TPl»t. 

TP«. falSF • 

SPa.F At SF . 

I NDa I 

*^:.2C 00 **2iL TPl'F a I , 1 3 

P(IBUF) a *i.72S39Cj7^£.-^tPEc>(.FB 
T I M 1 eUF I *1 i I NO t JF ) / I • 8u 

C OF IS equal to FUCL/OXIDI 2EK ^EIGHT RATiOi HaY |7*|973 

Of I N U HUF ) a aLPH A ( I NO # JN t I » / ( ALPH A < 1 NO • JN t 7 ) ♦ aLPha ( I NO • JN ,3 ) ) 
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I F ( f<M ^ M etT ) •Li • ' ) or I K ( I fcL r > •u.L 

1 r ( T S T A T r. 4 I T F K M ^ liM W • ^ U 
DO ^J.bb 

*^v EN ^ I » I P’'E ' * * • U /uS 

TIM* ! ^IT * *3^; ^ • 

UO 1 M 

00 H-7l"*!ri*fS 

L M J ? ♦ I F ^ * f J « S ( H P’ r I J N • 1 > ^ F H 1 < M 

1 r i E M * 1 K’ F > • n • I • f • ^ ^ * I » 1 ^ D f ) « I • t • 6 

Ml 7^. cor:T ) ^ uf 

M Ft HIMMFMF' » F h ( I Mp • JN ) • HO T 
I ^•o^ > ( I nuM * I f t 

IF i 1 f r . ( E . ^•T ) Of 1 r *• if I L 

M?wf l^D f un < n I > F I F T ) 

M ? I L N P r I fH.‘ F 
NPT * I 
CALI HHCALC 
C 

c rOMVfKT, ftFPfLI/F, STOwF FKQH COE HUEFt»5 1 K T 0 TiCbt 

C A P K A Y s . 

t 

DC IhUF*l,fP 

I > » I f Of X ( IPUF I 

« rl^ f I bUr 5 /H^-f o'* 

Sf'U ^ 1 > » Jf ) « V I bCf < I eUF ) 

PFhr* ( ! X , jF ) *PF ( I brf ) 

IF I PK I *M . ^ ) PKF 0 ( I X 1 JM *PP t 

f* I t I T X t • I • 
n ! X I ..f ) «^ I . Pi •TT T ( I pof ) 

A V I T X ) * Sf f V E I ( IF I f I 

DC M Iv I ^ • 1 f 

SC 1 M X , J^, , n *fX ! , I »t‘F I ♦F M 1) 

M3{t SP I ( 1 X , Jf' , I ) * WUF ( I • ! PLf ) /►‘OT 

If <TX •LT« ^T» go TC' ML2^ 

C ! ''jTLPPC LATt FCP K'FCESSAKV P^OPFKTtFb AT hESH HUImTS pqT SOLVED 

(. cs I f’G one • 

c 

CALL f>’ r F f‘ X I h’ H (• I I • J ^ I I T f I Y t 0 # M Y ) 

CALL PHPFfX (5M0 I|iJA)|YiIyE^»*'^Y> 

CALL FHOFfX (PKN0(1 ,JAJ»T*iYE:?,PT) 

CALL F pr f f X ( T ( I , jv ) , Y ♦ I YE ,P t ) 

C 

c tNTEFPCLaTl FCM SCT A^L• S^-I fMLY IF ALF. A»IS OR TLE’AJb IJOT UNITY# 

f 

C* Thf test Ffp ECLaLITy HETYEFN mCN-INTEGERS PaY not b£ meaningful* 
iFt (ALFY TS.EC.I.) •ANDtITLF;. IS*tO*l* > IRETUPN 
0 C M J r I » I , F S 

call PMOFfX ^SC!(|•J^|Mf^,I^EU•^T^ 

M9i;? CALL FkOFFA ( Sh I <1 • • I > • X , I Y F W # Y ) 

Ken KN 
EA'O 
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KJ <J O - T U KJ 


SOBROOTINt HPCALC 

CurCAlC PtPFOPW A SERIES OF E NyH AUP V*PRESSOftl CALCULATIONS* 

COMMON /POINTS/ HSUM I 1 3 ) » SsUM C I 3 ) I CPM ( I 3 ) , 0 L VTP I I 3 ) , DL»PT ( 1 3 ) » 
( GAMMAS! 1 3 ( ,P( I 3» »TZ.PR»*! I3» ,WM! 13) tSONVEL! »3) • 

2 TT T( I 3 I 


A 2 
/POINTS/ 

/POINTS/ 


C 

c 


COMMOM/SPEC E S/COE F ( 2 , 7 , 3 1 ) , 5 ( 30 » , EN I 30 , I 3 ) ,ENLN|30) ,H0|30) , 

I 0ELN(3u>tA<lb«3'. >*SUB*3c-i3>tlUSEl3C)iTEMP(SOi2> 

Common /miSC/ eNNiSlJMNiTTtsl>tAT0M(3*IC-S)iLLMT(IS)iiS0(lS)* 

1 BgP! |5,?) ,TM TlO*,TMII),ThI6P,PP,CPSUMj0F,E<IPaT, 

7 HSl'PUtHPP(?| ,PmOI2i tVM|N(2) *VPLSl2) *»pl2f , 

^ N*M(rIlSi5)iAfjM*i(lS*S)*p»pf»(T(|5l,gnil^||5)*pA2l|5li 

<t RTEMP(i5l,)0x(l5)t0ENSI|5l , TLN 

COMNOfi /II'OX/ CONVGtTP, HP, sP, moles, NM,NPT*l.»NS»FMAT,IMAT»I(aiiNCt 
• JSOLiJLIU, IC,i02 

common/ ?N( iCE /TIN(I3),0EIN(I3I»HIN(|3) 

COMMON/ Ol-T CPF/ HUP UF (30,131 

DO <40 IP • I ,NP 


^MlSC/ 

/MI5C/ 
/MiSc/ 
'mjSC'' 
/"ISC/ 
/ INO*/ 
/1N0</ 


A I A 


SET ASSIGNED PK'ESSUHE , enthalpy , 0-F NATIO, AND TEMPERATURE GUESS* 


PP»P( IP) 

T T ■ T I N ( I P ) 
or »0F IN! I P ) 
on I St I ■ I , NS 

ISL ENLNIl) ■ AL0G(FN( I , IP) ) 

• *••* OP IS equal to FUEL/CM0I2ER 

»*P( I ) ■ I • 

WPI7) ■ OF 


A 21 


"EIGHT RATIO* MAY |7,l?73 


SUM»PP1 I ) +AP ( 2 ) 

DO 2». i !■! ,L 

2vr BC(!) ■ !"P( I )*BuP( I , 1 ) ♦ *P(2I»«0P( I ,2) I/SUM 

hSUBt' ■ N I N ( I P ) / I . 987 1 6bO 

call EOLBRM ' A 22 

TZ ■ TT 

DO 3t t> I ■ I , NS 

3Cn HCBUF(1,NPT) ■ I . 967 I 6SL *H^< I 1 »TT 

THF TEST FOR EOUALITy 8ET*EEN NON-INTLGERS May HOT BE MLANINGFUL* 

IF (TT.NE*!*) go to 20 A 2R 

IF (NPT *EQ* Cl RETURN 

L K«C * 26 

THF test for equality BETAkfN NCN-INlLOERS MAT NOT BE MEANINGFUL* 

IF ( IP*eO.NP.Ofi.TT.EO.L. ) g') 70 30 A 27 

KsNPT A 26 

IF INPT.nE.I3) go to HU A 29 

3C CALI. ANSAER 

IF (F *E0. L) RETURN 

NPT»U A 36 

C NPT-NPT+i A 37 

A 36 

aLL COMPOSITION GUESSES HAVt BEEN COMPUTED EITEMNALLY* 


RETURN 

ENO A SO- 
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rs r» r» 


iTrf? 

C 


5 j >3 » n ‘ J T t *•: IT r A 

CHAHf,r3 T'1 SnilWOUT I HE I fl-t'AT 

T P<F.PA«1 KOK am nKK*ri()N TO SOLVt THE OlFFtRLNCE EBUATlONb. 

Or^TflN AVEKASf PkOPE-TjES AND KECALCUI.ATE ITLRATEO aU*ILURT 
a'JATlT|'’'tES ^Nt'J '^HE UlFTf. RfNrE ttlWATlClklS* 


c 0 n *■' 0 'I / '’ r ** 

COriMO 


vi'^/U t * 3 ) • H t 2^3 J . 3 ) ♦ AL r'M A < 7 ^ij * 3 , J > » RHOV ( 25 t) ) • SH ( 2 bU t 3 ) 
/KHn(2bO,3> iS,.!*-'' 2b.rt3» ibLL(2Sjf3> • 


, S^"T(2bli2iM,Sf:t(2bL»2*9)tT(2b«»3)iAV(2bl3> 

c .) IMOM / Y T arL f / Y T I L i 2bL.‘ > # ( 2bo ) t 250 ) » W T I LP t n T 1 LK • 

^ rrTii.(6) 

CO lMON/rr ^EC 'E ( > f ^ < 2Sc 1 

CO iio J/S IG MS/Sn.M 3 ) .S 1 -|2 I 3 I ,S Ki3 ( 1 > ,S 1G*4 ( 3 ) tbiob n > »s 'OSS (3 I 

C0i'l3 4 ^2CA1, C'' /tTAOiZLT AN»2t1 A^*»2STAK<3) #052(21 #Y2k-TAt 

Y T /wT A » Yt ot-: 

C 0 '*1 ^ ^ A L / b i>^ r F * U R c r I H ^ F r , S ^'• o r t f # w e Y i n 

c 0 i 3 ‘ J / r ^3 i) T /NY t u Y 1 I ••* Y2«JY3,j0iJN*v)A#NtL#NELlfM5P|NMAX#NYl 

/‘V^O*?!/ Cl* .il2b^ii3* »r*‘*''(2bj»J) •rW(2bO#3) ,C*»-(2bj,3) #GAHAt2*C 


/tl able./ 
/YT ABte/ 


/ZC ALC/ 
/ZCALC/ 


/omori/ 
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oonnnrk no 


00 I }J I»l,NY 
C 

COMPUTE AVEHACiE Or BACK VAtijfc AND tATfeST ITERATCD WAUUE* 

0(1 , JAI«J.5«(U( I • J0)«U( I »Jn) ) 

H( I •UA|aO<S«(H( ( I J0)*'H( I 

CUU(ItvlA) • a»SU« ( CUU ( I I UO) * CUU<t>UNI> 

ClJV(ttJA) a 0,5'ja (CUV ( I t JO) ♦ CUV(t,JM)> 

CVVIt.JA) a o»SU* ( CVV ( I » JO) * CW(t«JNM 

CWA(I,JAI a 0>SO*(CWW( I • JO) *■ CNWdtJN)) 

00 2i lELaJ.NEU 

20 *LPhA ( I I JA , lEL I ■ w«5»J»( AlphA( l,jOt|feL> ♦ ALPHA ( I ; JN , I Ct >) 
SH(ltJA»a:j,5«(SH(I,J0)»SH([,jM»» 

HH0(I.JAla;i,5*(MH0(ti JO ' * R,)0 ( t t JN I » 

SMU( I « JA ) au.Ba ( SMii( I , JO ) «S!iU( I « JN ) ) 

PR( I .JA)aj,5#(PR( J ,JO»*PK( l,JNJ I 

BLE(I,JA)aJ,5*(BLE(ltJ0>*0Lt(l,JN)| 

T(I,JA)av;,5*(T(IijO)*r(IiJN)» 

t«»S<!fjAla;,.s*(EPS(l,jO»*EpS(l,JN)) 

PST(I,JA)a;.c;,(Pq7'(i,jO)*PRT(t,JNn 

8LET ( J I JA ) aj.!i* t »lET ( I I JO ) *81. ET I I • JNI) 

calculate aoo Save e ano f ^t each zone for this iteration, 

E(I)*RHO(l,JA)»BGP(I)aZErAp*rTIL(H/ZETA 
IJN F(I) a BGP ( I ) / ( ZET A**2»RE Y |NK » 

calculate SISHaS at wall ANi) first interior point TO initialize 
PUSH-OOTN storagf feature, 
c 

00 5S J Ka I , 2 

TM I aEPS ( K f J A ) 

rMZaSMUIK,JA)/PR(K,JA) 

TMJaTM 1 /PRT ( K , JA ) 

SI 51 ( K ) aSMU (K , JA ) ♦!« I 
S I 52 ( K ) aTM2* TM3 

SI53(K)aS'*U(K,JA)-TM2*TMI-xO 

SI5HCOaTM2»(BLE(<,JA)-l,),fM3»(BLEI«K,JA»-I.I 
BJil SI5S(K> a TM7tBLE ( K, JA I t jii 3 ABLE T ( K • JA I 
RETURN 
END 
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f?nU T 1 ‘if.: m 

SOl.VL srSTt^^ OK MOMtUTtjM tUUATIOrjj; FOP VbUOcITY 

c 

COHMO:J/:)Fr‘L^H»/ti « ) . H > ;?r, j , } , al^HA < 2SO, 3 ♦ J ) »RHOV < 2SQ ) • SH< 2&U*i) 

COMMOM/ I ‘‘.itP /S *Os • X fn/C . ' < 2S.,) .O’r 

COMMO J/P-ujr ( 2C> j , 3 ) , SitH f ^!bj . 3 I ,HV ( 75: , 3 ) , ULK ( 25;. • 3 ) » 

1 >hU 2 5.., ,7*‘M ^Sr T ,T(25U.35 #AV1250) 

COMMO*I/tpk()P /L'PSC 250,3 ) *PkM 250,3 J ,HLrT(?bO»3^ 

COMMO t / V r ARU:/ Y r I L ( 2S U » , |^c.fM 2bu ) , HfiPP (250f#IYTiLP,lYTILF, 

I CYTTLI6) 

Crir)Mn»i/M AT P*^ / A < 750 , 3 ) , H I 2s«j > 

C U f I M 0 » / r r W t C / L J 2 S w > • F < 2 s ) 

CO.-IMO i/s ! AS/5 I M ( 3 1 ,S H-.7 ( 3 ) , S I 53 t 3 ) ,s 1 ( 3 ) iSTb5(3) 1511*55(3) 

COMMO' /M-.5FHC/ Trose: ,SHKL)bt ,HLO(>t .‘itnGF f PE DbtbtAFLn (it in^tOSOt 
I (MILOS, UOFO^N ,nPtOSN 

C0HM0'^/C'>»ST /SlNlT,XINir,x^'AX*DfcLTAl,SN|,SN2,SMJ,EPSLN|iEP5LN2, 

1 tPSLN3,cON'-R.^,n2DY ,OMf>Y ,rf>Y5W 

Cf‘Mfinri/c^ j.>, r /MY , N Y I , 5 Y 2 , My3 , JO , Jfi • JA , 5LL ,Nf L I , MSP , NMAX ,NY I 

/ T ‘vL rPMi / riF qUG ( 3 ) , r , K tNOflP 

(. 

C rVALOAiL rr>Frr r c 1 PnT s 0 ^ SysTfh of mmf mtum EQUATIONS (FROM FIRST 
C iNTEKiOR POfiT TO ST'^UNO POINT if hOUNDAPY LATfRli 

C 

Tn 4» WHO ( J / , JA ' *H ( Y , J A i • Mjp- »v,F - IM fi Y , jn M / OS 
1«2 

L 

C rALCOlATt IfMJ^Or^APV OMA NT 1 T 1 rs . 

c 

’ . 5 rtF. = ‘- I p 

F - F ( > ) 

S ! a ! ( .1 ) X S'i‘) f I -► I I J A I ♦EPS t j ♦ I . J A » 

s I j n = ( S , ( 3 i - S I G I f I J )•'»:> 0 Y 

ijv I ij ( I , JO) - U ( I - I , .10 > ) *07MY 

0 Y Y MN:: ( 'M I ♦ I , JO ) - 2 • • -M i , .if> ) ♦ U ( i - I , JU » ) ♦ OD Y SO 
TF'*p»'-ir*Mr,P())«SlGi<2>*0PY5S- 
T V I .r^r.PP ( I ) *S » G 1 ( ? ) / MGP t » ) { 1 » *S T Y 

Tm 2 *PmO V ' T ) ( | ) 

T^^3aRH0 t T , JA ) • J < I , J A ) / l)S 

c 

C Or 



M f I - : 

,j lRna')Y«(Or«j(I,JOI-T«?^rtF#TMl #S*TEKM 

c 



t 

rOl F f . 

or *M -1 ► i , M ) 


All-) 


(. 

c 

r'lrFF# 

nr j ( *<♦ 1 , 1 ) 

c 

A t I - 1 

, 3 )»-All-l,|)-rrRM 

c 



c 

3ir,rU- 

HAN') SMK 

c 

rj f I - I 

1 , )»)) - imi^uymny* 


t ( n *i T Cl I ( ;! ) • my 
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/ytable. 

/ytable. 


/tOGEBC/ 

/tOQZbC* 


n r. n non 


C STOW/^<ir 

C 

Si I » ■? !(, I ( 2 ) 

SKil 
I*l^l 

IF (I .IE . Nt I ) GO ro IJU 

MOOiry FIRST AND L^ST MOMENTUM tUUATlONS Qy aOONOARy CONHITIONS 
AT A L L ■ 0 

aT edge u , UE 

Af|»i)*o« 

rt f Ny 2 ) *P < ^ Y2 » -A niY2 ,3 ) •OC Hot 

A4 WY2,3|*^., 

SOLVE MOMFNTU'i EOUaTIONS F Or N»2 • 3 » • • • » N Y» 1 

Call trim iA,i'(?,jN),tt#N^2,NfiAX) 
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n o 


c I T" I f of' il(n^»*M and UtM+l,NY) 

u ( 1 , »N ) « : • 

O < V V , J H > » ‘ i r o K 

rKT;7 DF•»>'‘^ fOK ^HI5 KMUffSTE-L'. 

C 

lc(<oonNF**r^T.JCAUL I>UHP1T 

1C ST » f J<NY*»J'n -fJ(NY , Jr]) ) /u( NV , JM) 

I t i A « S ( T € b T ) • I. f. • ^ P S 1. N M P F 1 H W N 

r ^0LJTI0^‘ rvj^S '*JT ^s y »^HT0T » ^ a, l. Y ahPKOACM EUGL conditions* 

C tNC'< 1’A‘-*F ’fHiCKNLSS OK rtOUriOAP^ LAlt.K AOnlMG OmC POINT, 

C 

1 •^ .' ^ w M T * I * I c P O T I 

I f ( T N C P t'! T • G T • S ) C A I L 0 E 8 VJ G ( K H M 0 H N T * i ; 

I r t ■ j 'i • f *'i « < L M. L D E 8 U G ! ^ M ! ' n i ; rn n > 

c^.Li. Anno T ft* 

I 6 N Y I - I 

GO TO Ij . 

Lrj 


SUt FCl T 1 t f. KL r t 1 

CFIPU'^ YMT! TFCCL InPUI DATA, 

^ trKMrr,/XTA8l F/KKI Ab (5-tiU) • XtaDPMSLl I »l RATaB* 18*^XP.CPAAC6 ) , 

; fFlABfSGt)|XTAPF5t(Sv-)tLPeTAB,IFtYPiCPEX(6»f 

.) I f 1 AF3 (SCC I • LUrilB, lUEXP ,CUEX (6) . 

^ X 1 T'UOX ( Sut. ) tLCUOxT , I DUO^^P 


c C F f; K / I 1 / r* L F / 1 »M A b M l* U ) • X T A H 7 fc*. « I U o ) t L T Y T a B • M x P i 

, S*'ni Ah ( I uv » t X F X < * pO » t LMDTAB f I MDXP 

CC NMf K/' T£ Ft, / /DXI T t-i ( bC ) i L 1 ( S - I » 1 ** • J I>* # 

^ SKtAb(?'l7)#>TA8Sr(Sw)iLSrTAB#ISK, 

7 t M 

CC^1^‘r^i /Ff GtPC/ Tr,DGt ,5 HFDg^ ,HtDGt lUfOGF iPtOGEBjAfiOGtiDWrOSOf 

, OUEOS *LM»e I DPtnbK 

c C K K f N / ^ 0 f ri A t / K I K r F I f ' h F F t F o ^ F ^ » S L P k F » P E Y I N k 

Cf KKCN/» UL7 / A k f UEN I PLN f S kI N , YK 

CO^. kCN/fONS 7 /i,|ktT fX INIT , xk'AX iDFL 1 Al fSNl ^SN 2 iSk* 3 »tPSLNl tEPSLN^t 
1 t PSLN3, CONV«(,,0?DY ,OhOY ,OPY5Q 

COMkPN /TITLF/ 7|TLF<|3> 

C r 8 c N / r r L f 1 T / ( . Y , Y I * f, Y 2 I ^J Y 3 I J 0 * .J N » J ® t N F L * N F U I » M b P # K M A X , N Y I 
CC MPT N/GP7 I ?r / I Ok A L il APNR , i k C OMP 
CC^iPC^'/STA^^ /IS7 aIN,MAXI7 , 17FP 

COO PCk/PPNTCl/NSPPN7»K UP PK7»I5PPN7 , IIPPNT ,LKbPPf. iLINESR 
CCOPTN / Ik PPOF/ l‘PMOF (Sol * tUUPPOk fC0YX(6) iHPROF(bw) t 


/tOGEBC/ 

/iOGEbC/ 


/T ITLE/ 


/INPROF/ 
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t tnrNH(5fc» ,(,f-Pf»OF.CMY*<AJ /INPHOF/ 

CCMHON/PF C.AS /CiAMMA»FhOU*T,PRI 
COMMCN/NEY-3 /AFTRNSiPtA* 

C0WM0^/N^A5 /|YPR 

COMMON/NEY .7 /GPOiPAMBiII^ToKiZETaPI 
CCHmon/NEIAS /RSTaR iPSTPP ,x$T AR|DLSTO,OtSTTH 
CCMPOM/NEA 9 /lYEG 

CC'PHON/MEYK /APPCF(5C»»YeyAAC5C»»LAPHOFiTAyPtCAVXJ4|,AF*ALL 
CCMKCN/NEY I 1 / J?0 ,UEIf iRHCEk 


COMMOM /INPUT/ B , 3C > » I ’’ Ol^ * • THE RM , P T I ** t 3t. » » NPROO » NSPEC 1 /INPUT/ 

I PHAZ(3U> tTl(3SI tT2(30l /INPUT/ 

COUPON /At/ INSTATttPSl IN /At/ 

COMHON /COOL/ ALTaBI |0(i> iCaX( 6I tCCXI6l»COEPCt.,CPL«CPLTAB(20) • /COOL/ 

1 CP5UMEiCRX(6, ,CTHX(AJ .CTLXUI ,C2XI6) ,OELXBA,OIATUBi /COOL/ 

2 0* I f H&tHL I I Ax t ICOOL. ICX , IRX, I THX , 1 TLX * iTZTABi I ZX , /COOL/ 

3 M A SSL • PR A MOL, 0*1 ,R*MOL|R*PO«,BAPTaB(* 0 ) »REYLiSQWOSI ,/COOL/ 

li sort iSUPOPI ,tA«,TEPPKL»THICK»THITa 8 < leo) tTLOiTLI . /COOL/ 

S TL2,TLCA,TLTaB( lUCI •TUBEN(T«G2(T«<SCA»TNL|TZTABI20I I /COOL/ 

A ZPYTAB(20> *ZMYULtlTP0S»T»L2|TA»M,STAMR£ ' /COOL/ 

REAL PASSL /COOL/ 


COMMON /nPORI/ C Ul.i I ZSOi 3 I i^UV ( 250 t 3 I tCVV ( 2 & 0 f 3 I ,CW*f 2&0 • J ) iGAMA t ZK /OMOMI/ 
COMMON/h2INJ/INvH2 

c 

DATA UN'AME iPNAME/AHUETAB , 6 «PETAP / 

c 

C '/-rite SINGLY niMFNSIOMEO V*(<|fteLES. 

c 

WRITE (AfVCLLI TITLE 

WRITE (6i9CIc) IRe*L iLAMPR, I NCOMP , J20 , | NTBK t I COOL 1 1 ThERM . I POL Y 
WRITE I 6 I I I I 1 ) I N JH2 
llll F0RMATI30XiBHTNJH2 ■ iI2»6x« 

I52hC»I FOR HVoRPGEN I N JEC T j ON , FREE ST P£ A M* *PtHF C T 6 AS 1 / 

2H7X,53H«{, for PERFECT GAS t NJEC T I ON , F re E STREAM»*PERFECT GAS) 

WRITE (AfVr.pL) SInITiXINIT,XMAX. 0X1 .OELTAtiZETAPI 
WRITE 14.9031) PLREF ,0 REF irPOREF .SPUReF 
YJRITE (6.9C«.L) XN.YN.UEN.PgN.SMON 
WRITE •G.'i'LSt.) I EDGF.PEDGEb.TEOGE.AFE OGE 

WRITE tA.9{4t) AF THNS iPR I iGAMMA .FMOLF T ,PLaW ,PAM p ,6P0,SN3 . 

I ASTAfi ,AFW*1 .l »UEK .RPOEN 

WRITE «A,Vl7iI COnVRG.EPSLnI .EPSLN2,EPSLN3,EPSLIN 


6 


I 


2 


WRITE tA,V(8^) NA F I T ,NY I , NtPRNT .NSFRNT , I NST A T , I yPR , I YtO 
WRITE(4.6 )YiAA>A.ZK 


FCRP*T « IA I IBhCoRReL*TiON ,NPOT5//bXt4„^A„A • tp I U. * , 5X i *»hZ|C "i 

I ^l{.6//) 

IF CICOOL ,EC, U| 60 TO 

•rite <6, I) CCEFCE »PaSSL iRxMpY.TOeitN 

format <2Ph RF6fNER*TiVt C^^'LING I NPUTS//*»X , BH^otFCL ■»fI2*8»10X. 

I 7HMASSL ■ . f I 2.4 , I i,X « 7HP AhcP • . F | 3 • | b . I U X , 7H TUBE N a.F|n. 3 /) 

WRITE (4.2) ( T 7 T AS . ( I . T 2 T A{) ( I ) • C PL T AB ( I ) , R AM t A6 ( I ) . ZM YT AB ( I ) . 

1 I ■ I .ITZTAB) 

FORMAT (D.I///24H COOLANT PROPERTIES T ABLESZ/HSx . 8M 1 T ZT AH w.IZ// 
t l&X.|Ht|9X.5HTZTAB.IIX.4H^PLTAB.I3X.AHRAMTA8.l3Xy4HZMTTAH/ 

2 )I‘)X.l2.Sy.0FrlL'.9t5XiFI3,)(j.SX.IP£l<t.fl.5X.E19,8)) 

WRITE (4.3) I TATAR 
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j FOKHAT COOLANT fcA^L T ABLES/ / •*•* * , »Ht TWT A» • I4//4 ftX . MM-* 

I llXtBHAtTABilZX.iHTHITABtlZXiBHTLTAB/) 

L1HF5R • I.NSPro - 8 
Dp 30 1 ■ ltiT*TAB 

WRITE (A.RI 1 , ALTaBI 1 1 tTf'lT*e I I ) ,TL1 ABI 1 I 
*1 FORMAT r 1 3X , I 3 ,5X , |PE 1 3* 7 ,sX t E 1 3* 7 >SA ,CPF I I .*♦ I 

L1NESR ■ LINESR - I . . 

IF ilime*;r .GT* U »0R» l •E^'* LTRTABI go to 30 

s JJJmAt' I IhI/IEX.IHI. 1 lX,6HALTAB,lZX,6HTHITAB.l2X.5HTtTAB/> 

LINESR ■ LM5PP6 “ 5 
3n CONTINUE 

C vRiTE STEPSI2E CONTROL TABLES. 

C 

Ml. WRITE « A *90001 

WRITE (A.VtSU LPXLlM.LSf Tap 
WRITE (A.9lUC> 

LMAX»PAX«^(LDXLIM»LSXTAB) 

WRITE (6#RIH;) DXLlM(I)i*LlM<l)ii>KTAtt(|)tXTABSlCjM 

IF (LMAX »UE» n GO TO 11^; 

00 lOL I • 2*UH*X 

IF(I*GT.lDXLIt1l60 TO Bti 
IF C I .&T*l SXTAP )&0 TO 90 

WRITE u.9iii> oxLiMm ixuiHi I ) *sxTAH( I ) ,itabsb( n 
GO TO 100 

BO WRITE (A. 9121,1 SFT AB ( 1 » * * T aBSF ( I 1 
60 TO loti 

9C WRITE fiXL I P * t • I X L I M • I > 

i Qii CONTINUE 
C 

c «RITE WALL TABLES. 

C 

no WRITE (A.VuLUl 

WRITE. «A.9*3M LT WT AB , LMl'T aP 
WRITE IA,9|Mii) 

LII4E5R»LMSPPfi-fl 

LMAX«NAXt«LTr;TAP.LPOTABI 

write (A,9II0» TWTABC I I .XTaBTW( 1 I .SMOTABI I 1 .ATABHOn > 

LIMESRwLIWESR-1 

IF (LPAX .LE« 1> GO TO 21j 

DO 20w I * 2 iLHAX 

IFlI»6T.LrwTAfi)G0 TO 16 U 

IF( I .GT.LHDTAriir.r) fO l7g 

WRITE lA.VIlu) TWTABI n ,XT aBT W ( 1 » .SMOTABI I » .XTABMOI n 
60 TO IBO 

lAO WRITE (A,912U» SMPTABI I ) .XtABMD* I » 

60 TO IBO 

»7C WRITE <A, 91101 TWTAB« I • »XTaHTWI n 
IBO LINESR-LINESP-I 

IFULlNESK.6T.0l .OR. ( 1 .EW.lPA* '• G^ 200 
WRITE (A.9UUUI 
WRITE <A.91H0> 

LINESR-LNSPP6-S 
200 CONTINUE 
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o r> 


c *iRITe •ieoNtTKr and edge Tables. 
c 

210 WRITE (4.9000) 

C* TH(r TEST FOR eOCAlITY BETWEEN NON-INTEGERS M«T NOT BE HE*NlNGFUt» 
IFIPETABC I ),NE.O» )G0 TO 22j 
WRITE (4,9150) LRwTAB.LUtTAa 
TABNAil-lJUAME 
GO TO 230 

220 WRITE (4.9K.0) LRWT Afl . LPE T a 9 
TABNAM»PNAMt 

230 WHITE (4,9170) TARNAM 
LINESR»LNSPPG-8 
LPUMAX-MAXO t I.PETAP.LUETAO) 

LNAX«iAAXi, ( LR'VT AB ,LP‘JNAX ) 

TA3WAL-PETAB < 1 ) 

C* THF test for equality between non-integers may not be M£AN|N6FUt, 
IF(PETAR(|),EQ.O*) TABVAL«UeTAR( 1 » 

WRITE (4,9110) RWTAB ( 1 ) , X T aBRN ( 1 ) ,T ABVAL fXTABPE ( t ) 

tlNESR-l IMESR-1 

IF (LMAX .LE. l> 60 TO 31a 

00 30U I ■ 2il-MAX 

TABVAL«PETAB ( I I 

c* The test for equality BETWEEN NON-INTEg^RS NAY NOT BE HEARiNGFUL* 
IFIRE TAB')). EO.J. ) T AB V AL •UfT AB ( I ) 

IF( I .GT.LRWTAB )Q0 TO 240 
IF( I .GT.LPMMAX IGO TO 2/U 

WRITE I4.9UU) RWTABI I ) ; XTaBRWI 1 » ,TA8VAL»XTA8PtC I I 
GO TO 2Stl 

240 WRITE (4,9120) TABVAL ,XT ABpCi I I 
60 TO 29J 

270 WRITE (4,9(10) R'YTaBI I ) , XTj^HRTI I ) 

2B0 LINESr<»LINES9-l 

IFl (LINESri.QT.O) .OR, ( I .EQ.lNAXIIGO TO 3Q0 
WRITE (4,9jCiJ) 

WRITE 14,9170) T A BN AM 
L INFS l■LNJPPG-<i 
300 CONTI lUE 

Write experimental profiles, if input. 

31-0 IF (LUPROF .EQ. -LHPROF) RETURN 
WRITE (4,9j.)J) 

WRITE (4,9IB:j) L UPROF , LHPRqF 
WRITE (4,9190) 
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tMAX-HAXOCLUPROF.LHPROr • 

*9|TC UPROF* 1 » %T9yN'J( I • »mP«OfM » I YBTnH* * • 

IF (L9*< .LE. |l 60 TO Hij 
DO H34 I « 2»LHAX 

IF* I*GT«l0?R0F>G0 to 260 

IF* I*r,T»t.HPROF»60 TO 3’*> w«v..miii 

write (a.tm j) -jprof* I » ♦'*‘»ynu( I ) .hprofi n ,YBTNH( I » 

60 TO **0J 

3Ad WRITE (A,9I23» MPROF I I » i Y » y NH | H 
GO TO R3J 

37J WRITE IA.T113) UPROFC I » .TByNUI I I 
R-3U C0NTI>4UE . „ 

H|3 IF ILAPROF .EO. c> RETURN 
WRITE 

write (AtR2'JU> L»P*«OF 
WRITE (A. 9210) 

00 RSj I«l»l.APROF 

460 WRITE 14.9110) APROF C I ) . YU yN A I I ) 

Return 

9033 FORMAT ( I H I . 24 A » I 3 A4/ / ) 

9-310 format I IBM flags AND OR T I qNS / / 30X t BM I OE AL • .12.6X, 

, S4HI.I FOR perfect GAS, -3 FOR HYORO6EN-OXI6EN EQBltlMlUH /M*. 

» BHLAMNR » .I2,6X,39hIw| FjP LAMINAR FLOWi wO FOR TMR8ULeNT»/3««* 

, bhincomp- .I2.6X.34HI-I PQp rj.sJUn^Ric . 

a I 3HC0MORCSSI3LE ) /30X f 8HJ2 o * f I 2 # , 2 I H ( ■ I FOR XXISYHHETRIC t 
S 33H6E0METRY. »0 FOR TW0«0 I MENSI ONAL I /30X jBR I NToR p ,l2t6X. 

4 55HI-I IF INPUT tables CO^E FROM TOK OUTPUT. -0 OT ME«« 1 *6 » ♦ 
f 8HIC00L • , t2.A<»5TNI«0 No COOLING, •! OPPOSITE DIRECTION. *2 SAM 
BE DIRECTI0N)/30A,RHITHERM • , I 2 ,4 X , 52 m ( ■ I FOR BThERHO ***’’?'' *5!^^ 

9T to OOE , *3 otherwise • /20x , *H IP*)LY ■ . I 2 i 4 X » T >H * ■ I F*>R 
$N OF coefficients FOR CORRECTED RXLL CONTOURi *0 OT HERR I SE > / / I 
9323 FORMAT (3HH PROBLEM LIMITS AND INITIAL V ALUES / / I X , 9 MS I R I * •.FI2.8. 

1 3X.7HXINIT •,FI2,B,3X ,4MXrtAX ■ , F I 3 • • , 3 X , SHOX I • . I PE I 2 i* ♦ 2* . 

2 BhOELTAI •,EI2.4,3X.Bh2ETaPI «.E12.4//) 

9310 FORMAT <2lM REFERENCE QU AN y I T I ES/ / M X . 7HBLff EP ■ . | PE I B . 7 | RX . 

t 4HUREF ■,EIH.7,BX,BHRH0 REf ■ . E I •• • 7 . •• X , BHBMORCF •’^*'**f^/* , m, 

9310 format I2BH INPUT NORM AL I Z A T • *JN F A C T ORS / / *» X , 7 H X N • . I Pt I B • 7 . NX . 

, 7HYN -,E1B.7,HX,7hUEN « , E I H . 7 , M X , 7 HPE N ■.EIB,7,BX, 

2 7HSMDN ■,EIB.7//I 

9350 format (|4H edge OU ANT 1 T I E s' ' ** X , 7 HUEOGE ■ , I PE I B , / ,«X ,7HPE0GE •. 

1 EIB./.BX,7hTEDGE -.EIM.Z.iiX .BHAFEDGt -.ElB.?//) 

OQ 43 format mom C0HSTARTS//IX.8HAFTRNS ■ . I PE I 2 . 4 . 3X I 5HPR I ■,El2.*»3X. 

, 7rlGAMMA • , E I 2 . 4 , SX , BHFMOL .» T • , E 1 2 . A » 3 X , 4NPL AW >.EI2*4.3X. 

2 TrtPAMB ■ ,E I 2 » A/ I * .SmGPO • , E 1 2 , A , 3 X , 5hSN 2 ■,Elt.4.2X. 

} 7,<XSTAR » . E I 2, A , 3 X .BHAF B AlL ■ , E 1 2 , A , 3 X . 4hUEX ■.E12.A.2X. 

4| 7HRH0ER •.EI2,A//» 
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9j70 FORM*! ( 3 . 7 H CONVTRGENCE *M,i EOGE CR I TER I A//RX , 7HCONVRS* , I PE | R . 7 , 

I ‘•X,7rlE'»SLNl3iEIR.7i‘*X.7MEpSLN2»tEIR»7,RX*7nEPSLN3»*ElH»7.H*i 

7 7rtEPSl. I N» , £ I 7// ) 

format (9h COUNTEPS//RX , 7hmAX I T * , 1 R t S X , 5 hN Y I ■ , 1 H » S X , 8 HNL PR N T ■, 
I I R |5X ,HHN5PRtU » , I R , bX t Rrt [MST AT ■ • I R , S X • 4 H I T PH • 1 I R , bX • A H 1 Y EU *1 
7 IR//» 

T,J9a FORMAT (2RH STEPRiZE CONTRoi. T A9leS/" 25 X , 7HU0XL I M» , t R . 3RX , 

I 7HLSKTA8» , r R ) 

format (I5*,A.,0XLM tt’X.AnXLIM .IRX.AHSxTAd f 1VX,4 hXTABSK/ ) 

7 I I g p 3RMAT ( tPRFZb. 7 ) 

7l7j FORMAT ( 'i 3X I ( P2E25« 7 ) 


713a FORMAT (I2H ■<AU. TABLE'j/ 72$X . 7HI.TWT ARa f ! R , 37X , 7HLMOTAB* , IR J 
7l'«a FORMAT ( 13X ,^>MTv»Ta3 » I 9 * . Ah* T Ad T *» , I 9 A , 6HSM0T AB , t Y X , X T ABMO / > 
TlSa format (25H CiEOMFTRY AND eijGi; T A HUL'i/ /2SX , 7HUR«t T AB« , I R • 3RX • 

I 7HLUETAR* , I R I 

RIAO format (25R jFOMFTRY AND EoGE T ARLES/ / 2SX , 7HLRRTABB , | R , 39 X , 

I 7HLPET A8« , I R ) 

7170 FORMAT ( IbX.bHWYTAd , I 9 X , 4 f( < T A BR V* , I 9 X , A 6 , f ? X . 6 M Y T A B P£/ ) 

?l8u FORMAT (72M F <PER I MENTAL PpOF I LE S/ / 2b X i 7HL JPHOF « , I R , 39 * , 

I 7MLMPR0''a , t 4 ) 

9|9j format T t 5X f ■SHUPPOF i 1 9 X , 6h Y H Y N'J tl9A,4HHPR0F t|9Xt8HYBYNH /) 
73)3 format URM experimental PROFILES C CORT I NUED ) // ?5X , 7NLAPH0F* • I R ) 
921 j FORMAT ( 1 bX , 8HAPR0F ,|9 X,AhYMYNA /I 
ENJ 
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m n h r> n nr»r» 


COOE 

C 

C 

c 


c 


c 


SOBROJTlME OOE 

IC*<»*6 REFERENCE PROS'JAm (0DE» MOUIFIEB TO HANDLE 6Q0IUI*N|UN 
CHEMISTRY IN THE TURMUlENT BOONOARY LaTCR PROBRaH AND TO 

operate in a Subroutine mode* 


COMMON /INPUT/ {jm,30 I f IPOlY , I THERM,MT('*,30» tNPROOtNSPEC t 
, PHAZI 30) »T I ( 3a» ,T2 I 30» 

COMMON /POINTS/ HSUM I I 3 » I SgUM I I 3 ) |CPR I I 3 » .OLVTPf I 3 I jDLVPT I 13 > » 
, gammas ( 13 ) .P( 13 ) iTZ.PPPI 131 ,«M< 131 . SON VEC ( I 3 i » 


COMMON /MI SC/ 


2 TTT(I3) 

CoMHON/SPECeS^EOEF I2|T t-^O) iSt30) tEN* 30il3) >ENLNI30 ^i HO I 301 • 
DCLN(30) . A t 15 t 3t;) . SUB ( 3o . 3 ) ♦ I USE ( 30 ) • TEMP ( SO . 2 » 
ENN,5 DMNiTT , 50t AT0M<3» lab) »LLMT ( 15) tBO( IS) t 
BOPliStZ* »TM,TLOWf TM JOiTHIGH.PPtCPSUM»OFtE*IRAT » 
hSUHJ.hPPI 2) ,RhO( 2),VMIN(2) I VPLStJI ,*PI2 J I 
name! IS, 5) , AnUMI iSfS) ,PECKT(iS) ,E nTH ( | S ) tf AZ ( I S I » 
KTEMPI IS) ,T Ox US) ,0ENS« 151 ,tLN 

CONVG,TP,MP,sP,MOLES,NP,NPT,L*NS,|fHAT*lMAT»lOl»NC* 

JSOI. , JU 10 , I C , 1 <32 


COMMON /JNDA/ 


DIMENSION 0ATE12»3J),LH12),LVM(2),LVP12) 
integer PLANK ,F A2,rOX ,PM/>2 , SUP 

DATA BLANK ,LH ,LVM,LVP/ IH , , C A , M HL/ G »2MV-,|H »2HV«,tH / 
EOUIVALENCE lOATE.EN) 

LOGICAL HP, IC,MOLfS»SP|TP 

NaHELIST /thermo/ aNUM , 6 , CoE F , D a TE , D t ns »ENTM »F AZ »F0X » MOLES » MT * 
NAME,NSPeC ,NPROD,P tCRT,PMA2,RTEMP|S0B*TI *T2* 

. T1.0R,TMI|5, THIGH 


A 

/INPUT/ 

/iNPUt/ 

/POINTS/ 

/points/ 


/MI5C/ 
/MiSC/ 
/MJSC/ 
/NISC/ 
/MISC/ 
/INDX/ 
/INOX/ 
A 33 


A 39 


PRESET VaRIapI.es to ThEIk jNITIAL VaLUES* 


TLOt’ « 0«C 
TZ-0.;< 

00 2 I ■ 1,13 
2 P U ) « fc*l» 

HP «. FALSE. 

TP -.false. 

NP • 1 

OF ■ y.O 
EQRAT ■ a.U 
MOLES ■ .FALSE. 

WRITE (A,26u) 

IF UTHERM .NE. U) READ l5,THERN0) 

IF UTHERM .NE. u) write (6, Thermo) 
call react 
SP». false. 

calculafions involving fouivalencl Ratio changed it-io-at) to 

CORRCSPOUO TO DEFINITION UsEO IN PROGRAM A23S00. haM*FRCT. 

STOIC ■ ABS( « VPLSl I I AVMI N I I I ) / I VPLSI 2 ) ♦VMJNta) ) » 

••••• OF IS EOUAL to FUEL/OX I D I 2ER • MAT 2t» 1*73 •••••#•••• 

the test for EOUaLITt between NO)'- 1 nI EGERS MaY not be meaningful. 
irl WPU).NE»C»* OF ■ WP< 2 )/»f'U) 

WPU ) > I .v^> 


A AO 
A I |9 
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A P C 2 ) ■ Of 

SIIM»V*P I I ) 'fhvp ( 2 ) 

*'2«<*H(|)*VMlN(i)*/jPl2»*VM|Mt2) ) /SUH 
VI«»*»P(l)*VPLS(l)*l»P ( 2) •VP|_S(2) ) /SUM 
EOH*T ■ OP/SToir 
2tO ! ■ I iL 

2«,C Bt « I » • ( yep ( I ) *Rl>P ( I t > > ♦ »P • 2 ) •BOP« I ,2 ) I /SUM 
:• Thf test fop equality BETTTCN NOM-rNTtfefcRS MaV not be MEAN|N0FUL« 

IF (EQPAT.FO* I . ) EORaT* J •L gfcOOS 

HSUPC ■ < IAP< I) *hPP( J » ♦ *P(2»*hPPI 2> I/Sl'M 

WPITF (A,37u) 

«PITf (A»3Si) LH.MPPC 2) »PPp« I ) •KSUBCtLVPtVPLb(2t iVPLSl I ) iVl »LVM,VM 
|IM(2I|VM1N(1)|V2 
M«UPl ■ HSUP(j/l .9 r> 1651, 

»»MTE (Ai39v) 

WRITE (A(3UO> ( LLMT I I ) iBL ArjK tPuPI I |2 I (BOP I I > I ) tnOI t ) • I«l tL I 

CALL search 
10 |'»L*I 

IF CNC.EQ.L) go to 2H0 
DC 23- J»l,MS 

IF « 1 USE ( Jl .EO.O ) to TO 23g 

IF I lUSEIJ) ,GT.J) IUSE< J)».Il'SE< J| 

23c COMTINUE 

IC ■ .F*LSF. 

PP»f S 

NPT » I 

t M h « • i 

SUhM*tMM 

C‘0 2 5 Li J« i I rJS 

IF ( T use ui ) .rou - 1 . coc > m.se u i *o 

ji » )*f . 

E.NLN4 

if ( |USF( J» .NF:,,;;) GO TO 2b^ 

« (NN/(N5 - NC> 

ENLN(JI > ALC»6<EN( J, 1 ) » 

2Sm continue 

J5CI 
JL 1 

KE TUK^4 

2^w KOhMAT (INI) 

3/w FOR HAT llHOil7X.**HeUEL*l3X,7HOXlOANT»l2X,7HMlATuKE//) 

38C» FOKMAT (|H 2A**,3F|8«B/I 

3Vu FORHAT (RH ATOMS/G) 

e M Q , 


A 16U 
A |63 
A lA-t 


A 169 

A 176 
A 177 
A 17b 

A IbU 
A 181 

A 18S 
A I 86 
A 187 
A I 8b 
A 189 
A 199 

A 203 
A 20H 
A 2ii& 
A 206 
A 210 
A 21 i 
A 212 
A 213 
A 21 H 


A 217 
A 21b 
A 219 

A 226 
A 237 
A 23b 
A 23V 
A 2HC- 
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subroutine fARANS 

cparamS calculate gross boundary layer raraheters or interest. 

^ C0MM0N/PEPEND/U(2SU.3) .tl'2sL,3> .ALPHA(2S0.3.3I .RHOf I250I .SMC2S0,3I 

COHMPN/INDEP /S»f'«:|X»0*tYl2&O) |DY 

COHMON/PROP /KHO t 2SU t 3 • * SmU ( 2SU » 3 1 .PR ( 2S0 ♦ 3 * ♦ I^LtE * RBO » 3 1 • 


I SHI (2BO»2|T) ,SCI (2SOi2i9) i T I 2SU • 3 ) . Al ( 2SQ I 

COMMON /YTABLE/ ''TlL«2i»U» ,Ej6P(2bU» »BGPP<250)'.ITT1 LP,iYTILF» 

, CyTILIGI 

COMHON/XTABLE/RWTaB( 500» iXTAPRR(bOOnLR«*TAB, IB«XP,<R*X|G| , 

1 PETaBISOO) iXTABPEIbOoltLPETABtlPEXPiCPEXtGl. 

2 UETABCSOOM LU£T AB • I U£ XP « CUE XT A > • 

3 XyDUOX C SDO I tLDUDKT . lOUOXP 
COMMOrJ/LT able / TWIAB « 100 1 iXTABTftl IODiLTMTAB.ITRXP. 

I SMOTABI IOU> tX'l tout iLMOTAB. IHOXP 

CPMKOM/EFVtC /EI25U) ,F(2S0| 

COMMOM/REOH /RM (2 t f DRRDX ( 2 ) • THN I 2 i 

COMMPH /2caLC/ ZFTaOi2ETa»2ETaN»ZETaP.2STaRI3» ,|JSZI2» .YZETai 
I YT2LTA,YEr&t 

COMMON/ r.ALLPt/T«iALL.SH WALL, H* A LL » SMD*iO , SMO* . SMUWN 

common /EOGERC/ TEOGE tSHEDoE iHEORE •Ut0GF.*PE06EB.AFEDGC|DUeDS0. 
t DDEOSiDUEDsN iDPEOSN 

COMMON/NORMaL/BLHfF.UREF .RhOREF .SMUR tf .REYIRF 

common /rparam/ pi star * Theta f tau*i ♦ t au! »pcf .sor.sTan.sntgrl • 

I scwoSiSero 

COMMON /const /S t hi T t X 1 M 1 Y , ^MA X • del T a t .SNI «SN2 tSN3.EPSLN| f EPSLN2. 

I EPSLN3«C0NVKg tOZDY tOHOT tODYSO 

COMMON /COUNT /NY.NY I i N Y 2 i N Y 3 i JO i JN i U A , NEL.NEL 1 • NSP . NH A X , MY | 
commom/statn /|STaTN»MAX1T,ITER 
COMMON/NERB /RSTaR .RSTPR ixSTaR«DLSTO,DLSTTH 
COMMON/NEWII /J2D,UEK|RH0f|< 

C0MH0H/RSTART/IBSRDiIRSPF,|1APE 

COMMON /MISC/ LHNibUMNi Tl isl‘> ATCM( 3» lost .LLMTI 16)«BB( l&l * 

1 BUP( I5i2 ) .tm,tlop,tmid,thigm*pp.cpsum,of»eurat. 

2 HSI'Bi}«RRf’<Z> ,PMP<2I »VMIN(2) •VPLSI2I t»P(2l 

NAME ( IS>b) (ANUMf I b • S I f PE C« T ( I S I .EnTHI IS) .FAZI |S| » 

<t RTEMPIlS>»E0x<I51intNSII5I.YLN 

COMMON /COOL/ ALT4B(IOUI*CAX<<>>iCCXt6) • C OEFCL • CPL t CPlT AR < 20 ) . 

1 CPSUME ,CRX I6).CTHX(6')»CTLX<A).C2A(A) . DELXBA , D I ATUB . 

2 DXI,HGiMLtlAxi ICOUL. ICA, IRX ; I THX . | TLX » I TZT AB i I ZX . 

3 HaSSL iPRANDL ,UPI tRAMUL(RAM0».RAMTAB(2QI tRETLtSQRDSI i 

0 SOUltSUHOWIiTAA.TEMPRL.THlCK.THlTABdOOl .YLOiTLI » 

c, TL?,TLCA,TLTaP'IlO> iT0bEN,TS62.TP6CA.TRL,TZTABlZ0) • 

t, ZM\TAB«20) iZkYIjl, ITPOS.TPLZ.TAPM.STAMRE 

real MASSL 


common/nerb 

COMMON/NEWI I 


COMMON /COOL/ 
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onno onn nonA n n n 


DAT* PIF.RJ,S0/3. I A 1 59 265 3 , 7 7 7 . 680 OA * 32 . I 7 *«/ 

DIMCNSION ORMO ( 3 ) • YGRMO ( 3 ) 

C 

DPf.PSK’««RHO ( K Y , vUi ) *U • NY , iiK ) •DMtUSN 

I'HDATE integral over S tor oISPLACtMfcNT THICKNESS* 

IF( t IRSR0*GT*(t) • AND* ( ISTaT^.EO* IRSROt IQO TO SO 
IF« ISTATN.GT.t 160 TO 20 
SNTOPl-L* 

60 TO So 

2r. SNTGRl ■ SNT6RL * 0 • SO *05 • ( SMo«iO*2t T AO*R»M I > • • J20 ♦ SM0»N*2 cTaN* 
1 RK(2)**J2D> 

accupolate integrais over y using SIMPSON integration. 

FIRST evaluate UiTEGRANOS a^ H'ALL. 


SC Tl • R HO ( N Y , JM ) *U ( N Y , JN ) 

Tm 1 »PnO < I iJN I *U I 1 , JN ) / T I 
YgRnO* I'»«I*-Tm1>/6gP<I> 

YGRNri2)»TM|/B6P( (»•( li>(>(|.JN)/U(NY,jM) 
Th2»I»/I7ETAm*ZfTaN*HETINF) 

7t I*I »NY 

L( 1»«RH0( I .JM.RGI’I I )«zE.TAp.YTlL( I)/2CTAN 
7 Fin . P C- P ( I I • T P 2 

DUDY»020V«(-li(3,JN)*t»,»0(2,JM*3.*0II,JN)> 

YGRNDt3l>(KH0V(n*BGP(l)*0u0Y*DPE0SNI/F(l) 

aCcupulate integrals across BOONCART LaYFR. 

DO III I«2,NY| 

TN1»PhO( I |JN)*UI I ,JN»/TI 

GPriOI 1 ) ■ I t .>TMI ) / BGP I 1 > 

GRNOI 2 ) aTH) /BGP I I ) • I I .-U I I , JN I /U ( NT , JN) ) 

DU0Sa|(MI,JN)-U(I,J0)»/D5 
UUDyan20Y*(UI !♦! ,JN)-'J( I-l ,JNI I 

GRNf) I 3 I ■ ( HHO ( I t JN 1 *U ( I , JP ) .PIIPS* I RHOV J I I *BGP I I )-U( I , JN ) «E I 1) I • 

J DU0Y*0PEDSN ) /F I I I 

IF I I ,GE» NY| ) GO TO I 10 
IMULT a FLOATIH - 2*M0D«I*2)» 

00 ICy K a 1,3 

TGRNOIIC) a YGRr;n(<) ♦ FMI'LT*<^RN0 • K I 

IF NYI IS EVEN, complete 5I|,PS0N INTEGRATION, OTHERWISE, INTEGRATE 
LAST STEP USING TRAPEZOIOal RULE* 

lie* IF I MOO (NY 1,2 1 ,f,T, li) GO TO 130 
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^nr»nor» nononoooo o orv,^ o r> or>no 


t 


Op i ?b r * I » :* 

YPff^JIMK) « (YGK^iniK) ♦ H • { K » ) *UY / ^ 

Cj 0 I f» ». 

i L^O 1 » 1 » 3 

I 3 r Yr,Kf|tM»f) • f''r,KHn(K) ♦ GRfi(j t r ) ) »oy / 3 # t ♦ j •6u*l> y*GKwd ( k ) 

fV'MJUTF' ! NTF:<iR AT Ny A(j|» COH^Ltlt EVALIJATP^M OF INTEGRAL 

P^70PF t>T I rS« CGRl»r-M» ANP APL ZLROt) 

lb' OMO^ * (UCNYijnl - U(riYtJO))/nS 

i)UDY»0 2nY*(U<NY2tJN)-^««U(r^Y|,jN) + i.»U(NY,JN>) 
GRM)(3)»(RHOINY,jrl«U(NY,JM>#nUOS^JRMnV(NY)#BGP(NY>* 

1 U ( NY , JN I •r t ^'Y I ) •Oi»DY*OPt.nSN ) / r < NY ) 

if ''10 D(my, 2) .LF* ti) GO |0 I 7u 
YtikNni3) • YGRiiDtl) ♦ G R N D ( 3 » ♦ 0 Y / 3 • y 
GO TO 2»lu 

t ^ 3 YCi^^rjp ( 3 ) «Yf»RN0 ( 3 ) ♦ j • 5 ♦ 0 Y • GrND f 3 ) 
displacement thick HESS# 

2j‘l DL5T0 « OLSTAR 

TLKM«RHniNY,JA)*iJ(NYiJA>*I^.S*(R*iCn^R«C2|l)**J20 

DLSrAR«BLREr*(ZETAN*Y6HNn(j»#.SNTGHL/TERM| 

I r ( t XST AR*LT. f X-nx I I #OR • I X§T AR . GT #X ) ) CO TO 220 

|F THROAT has HlFM REACHEO, CALCULAfE THROaT RAUTOS CORRECTED FOR 

Di '>pt acement thickness# 


JLSTTH«riLSTAR-lX-X5TAR»*’DL5TAR-nLSTQ)/DX 

call XNirRP (XSTAR,R5TAK*OpK.TRWXR.XTABRA*R«lTAB,LRATAB,CKRX, 
I I R W X r ) 

TH^YTHitATANl OLR ) 

K5TPR*RSTAR*RLHEF-0LSTTh*C0^^THWTH) 
mOMEIIT JM TH I CKHESS, 

theta « MLRtrtZf T an* YGRN iM 2 » 

S<TN friction. 

TaOI«-SmUREF*UREF*Y6RNI)(3)/(RLREF*ZETaN) 

calculate lYALL SHEAR STRESS TAUR# 

DER I V«07OY# I -«J< 3 • JN ) ♦H# •U( 2 » JN ) - 3# •iM ! , JN ) ) 

TM|«RgPU)/2ETAN*SMU(1*JNI#DERIV 

TAUR*SMURtF#UREr/aLREF*THi 

local shear stress COErFICtER**^ BCF# 

BCF«7-/RrY!NF*TM|/( RHO I NY » jN I *U < NY t JN ) ••2 1 

mEat transfer rate sor. 
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n o 


OE»»I V«020Y* ( -SH< 3 , JN» •Sh«2, JNJ-3**SH« I , JN) J 

SUNS^aO* 

00 2H(j ISP* I iNSP 

2'4 I SlIMSP ■ SUMSP ♦ SHI « I »JN| IsP»*020Y*(H,o*SCH 2#JN»ISP> i 3.0* 

I SCI ( 1 ,JN, ISP» - SCl < 3, JN, ISPI ) 

Oe«|V*OCSlV*(BLE(|iJNI-l» )• SUMSP 
rM|*9GP{ I)/ZETAN*SHU(IiJN»/PSn .JN)*OCRIV 
SQi*«SMURer*U«EF»UREF/BLReF«T'i J 
C 

STA’^TON number STAN. 

TM2*NH0INYtJN)«U«NY.JN)*lH(NT,JN»-MIl,JN)» 
STAM*TM|/(REYINF*TM2» 

C 

C uROATF. INTCSRAI. OF SO* OVER S. 

C 

IF ( I I NSRO.QT • ; ) . ANU • ( I S T A rN.EO. IRSRU n 00 TO 280 

1F< ISTATN.OY.OIGO to 27u 

SQA0S*3* 

SO TO 280 

27-0 SQJTOS ■ SQWOS ♦ I 2 . 0 • P I E 1 •*.|20*8lREF* • < J20* I » *0. SO*DS* f S8»0* 
j RW(I)»»J20 SO*»H«t 2 I •• J20 > 

2»'j SfJiilO a SNA 

IF (tCOOL .EO. 3) RETURN 
TTSAVE ■ TT 
CPSAVE • CPSUM 

C •• CPHS CONSIDERS TEMPERATU^iE IN QEG-K ••• 

TT a T(NY,JN)/I.B', 

CAUL CPHS 

C •• CPSUME ♦**• I aTll/Lari»OLG-R I 

CPSUME « I .987920M3 I 2.CP5U,i 
CPSUM * CPSAVE 
TT • TTS*VE 

C •• adiabatic AALL temperature T*» (OEG.Rt •••• 

T^R m TInYijN) * PR ( N Y • JN ) •* I I >0/3 *n ) •i).SO*f U ( nY t JN. aUREF I **2/ 
I I CPSUME»R.1*SG • 

c RHOREF •••• ( L 0 F»SFC 2 /*'T 4 I •••* 

c •* SG GRAVITIONAL force ( L»M/LHF*FT/SEC 2 » 

AAKK a RHO ( NY , JN ) .RHOREFabGaUi NY , JN| •UHEF 
C •• AAKK •••• I LBH/FT3*FT /Stc I **•* 

C #• SOM •••• I FT»LBF/FT2»SeC j •*#* 

S9MI a SOW/RJ 

C *• SO»I *••• ( (FT»lBF/FT2*SeC1/IFT*LBF/BTU» a I 8TU/1 FT2*SEC )) I 
STANRE ■ SUM I / ( CPSUME»A A»K. I r AM - TWALLII 
C ** HG •••* (BTU/( 0 EG«R*FT 2 .SECn 
MG a SOMt/(TAM - TMALL) 

CAtU XNTCRP «X,fcAREA.F.P,IAx.XTA9TM,ACTABiLTMTA8,CA*,lTRXP) 
OlATUB a 2.0«SORTIEAREA/Pt£> 

CALL XNTERP « X , T L i , TP , 1 T U X , X T A8 T* , TC I AB , L TMT A8 , CTLX , I TMXP I 
IF (X - OX «GE. XinIT) go to 5 

tlo • tli 

GO TO A 
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5 C*LL XNTERP(X-0X,TLO|TP*'TL*iXT*BTftfltT*«»LT«TAH,CTL*tITW*P> 

6 IF ( X ♦ DX .LT. XM*X » GO T" « 

Tl2 • TLJ 

60 TO V , , 

q XNTEHP (x*l>X,TL2«TP»lTl-X»XT»bTPtTLTABtLl*T*BtCTLX»11IXXP) 

t> call xnterp t t l ' 1 2 m yul • z p * I ^ X « t z t ab » /m vt as t I j 2 T AB « G Z X • I TPOS ) 

CXLL XNTFRP ( J L I * C PL i C PP f I C * ♦ ^ ^ ^ * * » ^ ***-^ * ‘^ * * ^ ^ ^ * ® * ^^ * • * ^ ^ * 

call XNTERP (TLl|RAMDL.RP.l‘'X'Tif»«*"AMTAR,lTZl4B,CRX,ITP0S) 
PKANOL ■ CPL* ZMYUL/RAMOL 

«FYL . MXSSL*DIATU8/lZMT'JL.TlJREN*EARtA» 

call XNTCRP ( X , TH J CK • HP . I THX , XT ABI THI TaBiLTPTAB iCTHX , 1 TPXP I 

t«l ■ tli 

^ HL*’« *,.j2S.:«RAMnL/Dl ATOH«Re Yl«»U.«0*pHANOl**o.HO*< IU/TWL»**U*lst 

SM ■ ♦ RaMOW/ ( THlc<»H6n 

SA2 ■ RAMOA/THICK 

TTL • «SAI»TL1 ♦ SA2»TA*( ) / ( SA I ♦ SA2» 

IF <AUS<TRL6 - TI»l> 'STi J,0ia> 60 Tq 7 
TEMPRL ■ TAL/TUI 

TiYGCA > JHG»Ta# ♦ H AHO*l/ TH l CC»TRH / « HG ♦ R AMO«V/ T rt I CK ) 
gvi « HG'tTAA - TWGCA) 

SQaOSI « SSwDS/HJ 
TAAM « THALL ♦ SO*|/HG 
DEuXBA • CDX ♦ OX I ) PBCREP/e* 0 
COSAL • cost THAH2I » 

SST ■ C0FFCL»DELXeA*0RI»<PiE*RW(21*RLREFI#*J2D/C0SAL 
TlCA » CTLI ♦ TL2)/2.0 ♦ S s T / ( CPL*H ASSL « 

IF MCOOL tEO. 2) TLCA • (Tlj ♦ TLM/2.U ♦ SST / ( CPL*MA55>L ) 

SUMORl ■ SOMQwl ♦ SST*2.J 

TR62 ■ (TAGCA ♦ TAALL»Z2t'o 

TWL2 « (TLCA ♦ TL|)/2.0 

KEfUR’J 

ENO 
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u u 


SIJOROUTIME print 

CPRtNT STORE ITEMS I N SUMHA«y TABLE EOH THIS STATION, AND P«INT 


PROFILES aT This staTiqm if reqoireo, 

COMMOH^OFPENO^Ut2Soi3»«H'2 so *3».*tPHA‘ 25(1*3,31 *rhOV < 2So» tSH* 2So*3 I 
CO.iMOM/ I MOEP /S I 05 f X I [)X , y ( 2SO ) »OT - ■ 

COHMON/PROP /RHO(25o*3> .SmI'«?5u*3) . PR « 2So » 3 * . BLL ( 25q * 3 » * 

• SHI ( 2&0*2iR ) ,SCI (250*2*9| *T(2SU*3) *AT (2S0) 

COMMON/ T PROP / EPS C 250. 3) *PrT« 2SO*3) .MLeT(250*3l 

COMMON /YTAQI.e/ y til < 25(J > .BGP<250» *BQPP(2S0> * ITTILP. ITTILF . 

» CvTILIAl 

COMMCN/5TEPS2/DXLIM(50) « X L i m ( So ) . LOX L I M , I ox , 

! SKTAB<50»»XTjHSK(St<»,l.SKTAB»ISK. 

? OX I 

COMMON/CiEOM /RW(21|DRP0X(2l,TH»»«2> 

COMMON //CALC/ ZKTAO.ZETA ,2ETAN,2ETAP,ZSTaRI 3) ,0SZ(2) .YZETA, 
t TT/ETA , TEOGe 

cohmcn/w4llhc/thall»sh*4ll , H n a ll .smdmo , show .shown 

COMMON /roSEBC/ TFoGE.SheOgE iHEOTiE.UtOGe.PCOOEB.AFCOGEiOUEOSO. 
t OUEOS.OUEOSP.OPEOSN 

COMMnN/NnHMAL/bLRFF ,UREF . P hOHeT . SMUKE F . PET I NF 

COMMON /GPaRAM/ Oi. ST AK . Theta , TaUR. TaUi , bcF .Sop, sTaN .SNTsRL . 

I SQWOS.SQRO 

COMMON /TITLE/ TITLEI13) 

COMMON/COUNT /NYiNYl »NY2.Ny3,jO.JN.jA,NEL,NELl .MSP.NMAX.NYI 
COMMON/OPT ION/ IOEaLiLAMNH, I NCOMP 
COMMON/STATN / I 5 T A T N . M A X I T , I T E R 

COMMON/PRNTcT/nSPRnT .NLPRNT. ISPRNT . ILPRNT.LNSPPg.LIMeSH 
C0MMON/50MARY/SUM*Ry ( 15,30 1 ,NREC NST A, 1 ST A. NVaK, 1 drum. LAST 
COMMON/NFW5 /lYPR 

COMMON /NER7/ GPO , F’AMB , I MToK , 2ET4P 1 
COMMON /NE«II/ .120 .UEK .RMOe*. 

C0MM0N/NER8 /RSTaR.RSTPR . x ST a R . OLST 0 , plSTTm 
C0MM0N/PF6AS /gamma ,FMOU*T ,PRI 
COMMON/RST art / IRSRD.IRSRR.jTaPE 

common /cool/ ALTaBI IOOI iCaXI A) ,CCX« a j ,C0EFCL.CPL,CPlTAB(20» . 

CPSUMt.CRX(A),CTHX«AJ.CTLX«A».CZX(6),nELXBA,0lATUB, 


/TTABLE/ 

/ytable/ 


/ZCALC/ 

/ZCALC/ 

/tOGEBC/ 

/EOCEBC/ 

/GPaRAM/ 

/GPaRAM/ 

/TITLE/ 


/NE»7/ 
/NCWl 1/ 


7 

3 

N 

s 

A 


UXi.hG.HL.IAx.ICOOL . ICX , IRX , ITHX, I tlx , I TzTAB . I zx , 
MASSL .PHANOL ,QV*I .RAMUL.RAMOfI.RAMTAbIZO) .RETl.SGROSI . 
so*i . sumqri .txr.tempkl.thick.thiTabi Too) * tlo . tl i . 
TL2 ,TLCA.TLTaBI IoO) .TU8EN,Tw62.T*GCA.Tl*L,TZTABt20) * 
ZmYTAB(20) .ZmY'JL. ITP0S.TRL2,TA»M,sTANRE 

Real massl 

COMMON /OMOR I / CUlM 250.3 I *C')V (25^.3) .CVV(2&0*3) .CwAlaSo.i) .GAMA.ZK 
COMMON/MUZZT/SDELT A 
C0MM0N/H2INJ/ IN.IH2 

C0MM0N/C0NST/SINIT.XINIT.XmAX.0ELTa|*SN|.SN2*SN3*EPSlN4.EPSLN2. 
EPSLN3 .CONVRG ,020Y .0*»OT .OOYSO 


/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 

/COOL/ 

/OMORl/ 


OIMENSION AOUT(M). BOUT(B) 


CALCULATE DIMENSIONAL PALL ANf* EDGE COnOITTOnS. 
UFB«UINV, JNI •UftCF 

SA ■ SORT ( N972 I • V 1 1C»6AMMA/FM0L«T*T I NV , jN ) » 
IFICIDEAL.EQ.II.AnO.I 1NJM2.E0.I ) I SA>AV|Nyl 
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SMUEB»SMt'(NY,.IN)»SMURtF 

5MOWB«SMt)W»RnOKEF«UREF*7CTA 

SH£B«SH|MY»JN)»l)REF»URf.F 

rhcep«rhkny,jni»rhoree 
r.TriKt items in summary table* 

1STA»ISTA*I 

SUMARY( I 5 TA,n»rL 0 AT( ISTATnI 
Slii-lARYt ISTA,2 )«Ri»(2) 

SUHARY J I ST A ,3 ) »UFB 
Si.iriARYt ISTA|H1»BME 
SUMARYI iSTA,S)»SMHtB 
SUMARYC I5TA,A)»BfF 
SDMARY « I ST A .7 > «ST AN 
SUHARYn^’TAjHj^OLSTAR 
SUMARYI ISTA,9)»/ETAN 

SiiMARYI l5TAtlu)»RY <2l»BLKEF"I7LSTAR»COS<TH«fl2> > 

S'JMARY ( ISTA , I I » ■ X«DLRtf 

SUMARy I 1ST A , I 2 > “TH* ( 2 I 
5UHARYCISTA,I3I*T(NY,JN) 

SUMARr«lSTA|t*()»PEDGEB 
S'.iMARY « |STA,1S>"SMDR0 
SUMARY ( I ST A , I A I «T AUR 
SUMARYI 1 STA , 17 ) "SOA 
SUMARYI ISTA,16)»ThETA 
SUMARYI ISTA,I9|«ZFTAP 

SUMARYI tSTAiZll) ■ X*BLREF ♦ OLST AR*S I N I T H* I 2 » • 

SUMARYI tSTA,2l )«S 
SUMARYltSTA,22l*f’5 
SUMARYItSTA«23)«SHEB 
SUMARYI ISTA,2 H)«RhOEH 
SUMARyI ISTA. 25) • TLCA 
SUMARY I tSTA*26 1 ■ TR6CA 

SUMARYI 1STA,27I»S0*0S 
SUMARY||STA,2B)*5NTGRL 

SUMARYlISTA,29)"(UE0GE-UINr,jn»>/05 

SUMARYI ISTA, 30) ■ T*L 

(•HECK IF TIME TO RRITE SUMMARY TABLE BUFFER ON DRUM. 

1 F I I I ST A »LT .NST A I . AND. I L ASt • EQ.O I ) GO TO SC 
NST-m 1 Aiul I STA ,NSTA ) 

WRITE IlDRUM) NST , I I SUM AR Y ( I , J ) .d" I .NVAK ) , !■ I ,NST ) 

ISTA-U 
NREC^NREC'Y I 

CHECK IF TIME TO PRINT. 

IF IISPHNT .FO. NSPRNT) IsPRNT ■ U 
IF I ILPRNT.EQ.NLRRNT ) ILRRNT.U 
IF IILPRNT .NE. jl 60 TO (bOO 

PRODUCE SHORT PRINT OF CONTqUH PROPERTIES, WjULL AND EDGE 

conditions, and profile Parameters. 


*f»ITE «A»VOuJt title 

UNESH ■ LNSPPq - S 
MRiTE 

LIHESrt«L INESR-i 
XOUT a X'BLREF 

WRlTp Ui902j) rSTATN»X0UT,St0S»«<»‘2» tTH«*t2) *2tTAM*Zr?AP 
LtNESR«L INESR-2 
WRITE <A,9fj3u» 

LIi'JESRaLINESR'i 

RTHETa a R£YJNF/(JLREF*RHO(Ny,jN|*0(NT,jN|aTHtTA/SMtt(NY,jN| 

ThLOSS • (6<283|8Sdb6*RW<2)*BLKE^ * J20*C0 SI ThW( 2 ) ) • ( RhOE8*UEB**2« 

1 (THETA - BLREF«SNtGRL*RHOREF«uREF/(RHOCB*UCR«R«( 2I ••JZOl > 

2 - (PEOGFR - PAHB)*OLSTAR> 

HB|TF (6.9nHw» UFR .BMEiOLStAR tBCF . T ( Ny, jn J , RMO tB , THE T A , $ f A N , S hEB i 
I SHUEB.TAUWf T*U| , PE06E8 , TW ALL » SOW , RTHET A , THLOSS t SMO»B 

L JNESRaL I NESR-6 

IF tICOOL «NE» WRITE (itt> T LO « T«L • CPL >0* I * RLYL » TLt , TnL2 • 

1 CPSUME iSUMOW I iPRANDLf TL2.TWGCA,OiATUB,S0Rl ,KAM0L.TAWtTW62i 

2 thick ,SQHDSI ,ZHVut,TLCA,TEMP«?L,M6,HL,STANRE 

I FORMAT (5UX ,31HHEGENFRAT IVf COOLING MARAMFTEHS/5X,*HTL0 a.FIO.H, 

1 SX.OhTWL ■iFI;,.‘*ibXt»»HcPL •tFlb*IO|SX«8HQNI «,F|&*«tbXi 

2 BHRFYL ■ • I PE I S • 9/SX i 6HT|,I ■ • UMF I U« N • S j| • BhTLT AB a,E|0,H,SXi 

3 8MCPSUME « |F 1 5, 1 M ,5X ,8HSUm 0WI a , r 1 b • A • S X , 8HPK ANOL a , | PE 1 S • 9/b X , 

*» AHTL2 a,i)PFIu.9|5X,8HTWGcA a , F I 0« *• f SX , 8H0 1 A TUB a,FlS.IOtSX, 

s RHSOal ■ » F I S». 6 , 5X , 0MR AMqL * t I pc I b.9/5x I AHT am • • OPF I u t R (bx • 

A «HTWTAB ■ , F I o» R i SX , AhTw t CK ■ t F I b . I Q , S X , ShSOWD S I a,Ftb*AiSX« 

7 8HZHYUL ■« |PC|b.9/SX iAHTlCA ■ • gPF | u. R • bX t BHTE hPRL a,F|0»RibX| 
n 8HHG a,F is. I j.bX ,8 hml a i F I S • A f 5 X , BHST ANN E a|lPclb«9/> 

IF (ICOOL tNE. U> LINESR a LINESR - 7 
C 

C PROOUCE LONG PRINT OF VARIA0LE PROFILES FROM WALL TO EDGE. 

C rlRST PAGE. 

C 

WRITE (Ai9050) 

LINESR«LINESR-I 

!•) 

bbo AOOTtn a y T I L ( I 1 • BL RE F * Z E T * N 
AOUT ( 2 ) a Y { n 

AOUT ( 3 ) aU ( 1 , JN » /U ( NY , JN ) 

AOOT(R)»SH(I»JN)/SH(NY,JN) 

AOUT(S>»RHO(I,JN)/RHO(NY,JnI 

AOUT(A) a KHOV ( I I aZF T AN/ I RhU ( N y . JN I *U I hV , JN r I 
A0UT(7) a EPS ( I t JN I •SMURfcF 
AOUT(0»aT I I , Jtn 
IFILINESR.GT.^IGO to b7j 
WRITE (At9j0UJ 
write (A»93S»JI 
LINESR a LNSPPG - R 
S7J WRITE {A,9 v.Aj» I . ( AOUT ( J ) , j» I , 8 » 

LiNESRaL I NESR- I 

IP (I .GE. NT ) GO TO AQJ 

I « MIN3( I ♦ 1 yPR ,NY ) 

GO TO SSJ 

Aoo continue 


WRI TE ( A I 9 .18 •, ) 

ZOELTA a SDELTA*BlREF«ZETAu»12.0 


- 219 


o n 


.v»ITEt6,90) ZDLLTA 

"u roKMAT»nw OUT A» , IPE I 2 • b 19 H (INCHESM 
L J NESH«LNSPP(i-b 
ARlTECb, I JO) 

F0RMAT(9H N0.,6X,8H TAU , 6 X , 1 2 H T AU/ < KE«UE2 » . | A , 

I 2JH EPS/ ( RmO»»E»OElT* ) I 2« * I 2H VTJL/UELTAJ 

C 

LlNE'Sf! • UMFSK-I 

ZJ » SMUWCF •DHEF / ( ULPtE •/F. T*^ ) 

ZZ ■ l,o/(PEYINF*ZETAN*»HOjNY,JN)*U(NY,JNJ*U«NY,JNn 
• I ,0/ < HEY 1 NF • ZET AN*U ( Ny I JN ) aSOEL t A > 

I • ? 

I'l OJOYI • CHEY* t 0 ( I * I * JO ) - J ( I - 1 » JO ) ♦ 0 < I ♦ I , JN )*U • I » JN ) ) 
AOUT(l) a BGH ( I I 1 • I SMU ( I , .)') > ♦EPS t I f JN ) ) •OOOT 1 
AOUT 12) ■ AflllT ( ) ) *i2/Zl 

A0UT<3) • EPS( I • JN ) »Z ”»/HhO ( I , JN) 

AOUT(<*) • YTIL) I ) /SOELTA 
IF (LINES!). CT.U) 60 TO IU2 
«3 1 TE! 6 .*»aSyl 
*tRITE«*. lOu) 

LINESrt « UNSPP6-H 

102 P91TEI6, 1031 I . ( A OUT ( J ) . J» j » M) 

103 FOHMATI iMtlPNElb.?) 

UINESH-L1NE5H-1 

IFC t .GE.MYl ) GO TO lOM 
1 ■ N 1 N 0 ( I ♦ ! Y p R , N Y I I 

G0 TO 131 
ION CONTINUE 


•RITE (b.PjSJI 
LINEbH • LNSPPG-5 
*«RITE(6,»902) 

LINESH • LINESR - 1 
I>1 

SSI SOUTCll ■ SMU( 1 f JNI •SNUREF 
B3JTI2) ■ YTI L ( I » /TT 1 L C NY ) 

30UTC3) ■ CUU ( I , JN ) /O ( NY I Jtg ) ••2 

BOOT(N) a RHO ( I • JN 1 /RHO I N Y , JN I *U ( I • JN ) /U I NY « JN I 
BOUT(S) ■ COV ( I , JN) •SMOREF 
C ••••* U(TAU) ■ UT •••• 

UT m SORT (TAU»/ (RMO ( 1 tUN) • rHOREF I ) 

UTT • RNO( 1 ,JN) •RHOHEF»UT/ ( SNUI I » JN)*SN0REE) 
30JTI6) • U( I , JN) *UREF/UT 

83UT(7) ■ UTT»yT)L C I I •BLREf’ZETAN 

BOUT(B) a PRT ( I • JN) 

IFiLtNESR.GT.'j) 60 TO S71 
NR|TE IB.9063) 

AR1TE(4.99j2) 

LINESR-LNSPRO-N 

S71 RRtTElGi99j3) It (30UT(J)« J«|i8 1 
LINESR a UINESR - I 
IFCI.GE.NY) GO TO bOI 
I aHINO« I*IYPR,NY ) 

GO TO SSI 

bOl IF< ( IDE*L*GT.U) .And* I INJH2,EQ* J) > 60 TO 7Q0 
IF (ISPRNT .NE* -J) go to 700 
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c 

c 

c 


SCCONO PAG£ 


*i<iTE title 

LINESH ■ LNSPPG ■ S 
«*MTE « 6 f»lSU> 

LINE?««UNESR-l 

1 » t 

6S0 AOUTil) ■ alpha ( I , JN » 1 • / < *L^”* * • * '^'^ • ^ • ***-^^* * • • 'J'*** * * 

A0UT<2* ■ set ( I I JNi 1 > 

AOOTIS) «SCl(liJN,2) 

AOUTt'O ■SC!<IiJN,3> 

AoaT(S) ■SCI I I I JN,H» 

A0UTI6I •SCI(IiJN,5> 

AOUT(7) aSCKIiJNi^I 
AOUTtai -SCItliJN,?) 

A0UTI9I ■SCI(I.JN, 8 ) 

AOOTI IQJ-SCI ( I iJN,9» 

AO'JTIIlIa SMU ( I • Jrj I •SMUHEF 
AOUTt |2»- PR( I , JN) 

IFtUINES9»GT.v>G0 TO 670 
•*7 ITE I A »9C0y > 

ARITE tAt9|53) 

UINESH • LNSPPG - H 
47i- APITEI6,91 AcI I I t AOUT • J) I J»1 , 12) 

LI NESKau I NESR- 1 

IF (I . 6 E« NY) GO TO 7UJ 

I a H INO t I ♦ I YPR |NY ) 

GO TO 45J 

70J APITE tAi9‘^7‘l) ITCH 

CHECK IF time TO aPITE HESTaRT TAPE. 

I F < ( I HS'TP • EQ • ^ ) • OR • • • X* 1 • E-« • »L T • XL I H ( I D* I ) ) tiO TO tOOO 
UPDATE ZETA-HELATEO QUANTITIES NEEOEO FOR RESTART* 

ZPat2ETAN-Z5TAHtl)l/<OSZIl)+OS) 

ARITE IlTAPE) I ST ATN . nY I 0 Y ,ZET an » 2t r A I 2E T AN t 2P t ZtTAO ,OS . T Zt T A I 
, YTZETA , YEOGE ,«STPR,SNTGRL iSQROS, « IU(I,J),H«I.J). 

2 ALPHA I I |j» I • *ALPHA< I »J»2) , ALPHA) I tJi3l *ShI I*J) *!■) iNT) ,J«l #3) »C 

3 RHOV(I)iI«I.nY».*T)II,TTILII) ,B 6 P( I ) .BgPPI I ) »1*I I 

^ NMAX) 

advance PRINT station COUNTeRS. 

laaC ISPRNTalSPHNToI 
ILPHNTaiLPRNT*! 

RETURN 

9JJ0 FORHAT { in » , 2GX , I 3AA// I 

9^n FORMAT (9X iTHSTAT lON.aX.MHx < FEE t ) t I bX . I HS t 1 MX , 2H0S * I NX , 2HR» . I OX i 
I 6HTHFTAPil2X,HH2tTA»n X ,SmZEI AP) 

’320 format < I 16 I I P7E 1 Ai7/ I 

9030 FORMAT <I8X,2MHE0GE ANO MAlU CONO I T I ONS * H9X , 

I ISHPROFILF PARAMETERS) 

9LH.1 F0RMAT(7X,9HUCa ■ t I P E I M • 7 . 7 X , 9 HH ME • , 1 1 N . / . I 7 A . 9H0L ST A R a , 

I E|N.7,7X,9H8CF a , E I H . 7 / 7 X , 9HT EDGE • , E I *) • 7 . 7 X , 9HRH0 EB • 1 
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non 


2 

El **• 7 . 17X .RhTHET A 

■ .EtR.T.TX.RMSTAN 

• »LiH.;/7x 

.9HSHEB ■ • 

3 

F i <4 . 7 , 7 X . PMSHUER 

■ . E 1 M .7 • 1 7X . 9mT AUA 

• »tlH.7,?X 

,9hTA01 ■ # 

«♦ 

E : H. 7/7 X , Vhpedgep 

■ .E1M.7.7X,9hTWAI.L 

• .Cl<t*7*l7X 

,9mS«W • % 


E * R . 7 ,7X , 9HRTHET A 

« .EIM. 7 / 7 X. 9 HTMLOSS 

• .E|<«.7a7X. 

9HSMDWB • » 


EIR.7/1 





format (SRh no. 

YHa« 

y 

U/UE • 

! 

AIM M/he 

KO/pOF 

ROV 

EPS , 

7 

1 1 H T 1 





VjAu fnt{MAT ( I S . I('7t > 6. 7 .liPF I 1 . 1 > 

7j7ti FOr<MAT (/IftH NO. ITERATIONS »,13) 

R jR j FORMAT ((HI) 

9|6J FORMaTISSh no. F/0 TIM) YIM2I Y(H20> 7(0I YIOhI T(02» 

A 07h Y(N> Y(NO) Y(N2) mu PR I 

9|Aj FORMAT! M, )P),-E 1.). 3. IPEIO.3. v.f*F9.b» 

FORMAT(*tM M0.»6X,eH MU . I 2 X i I H Y . It X • 8 h K /Ut2»8X»0H RU/KLUE • 
I RX,nHMl«EpnV ,9X,6H U[)A6 I I I X t HHYDA6» * 3* »3 hPRT ) 

9«n3 F ORMAT t I *( ( I P8f I A.7 > 

ENl- 


SUBROUTINE PROF I U 


CPPOFtL CALf'LATF. INITIAL DEPEnOENT VARIABLE RKOFILFi FROM KNOWN WALL 
C AND EDGE CONoiTIOMS AT S ■ SIN11* 

C 

COtiMON/t'.FPLNO/u( 7-JJ.3I iHI 25>'J»3 1 i*LPH*C2Sii,3»3l »RhOV»2Sc) »SH(2SU»Jt 


COMMON /YTABLE/ yt 1 1 ( 2H J I , (jfiP ( 25- I » BNPP » 250> » I TT I Lt' I I YT I LF . /YTaBLE/ 

CYTIL(A) /YTaBLE/ 

common /2CAUC/ 7FTAOi2tTA,^ETANiZtl*P.2ST4Rt3l ,DSZI2I .YZETA, /ZCALC/ 

YTztTA ,YFIJl»E /ZCaLC/ 

COMMON/V, ALLRC/T*fA|. l.SHWAI. U,H>*AH. .SMO*lO,SMr)«.SMUWN 

common /FDfiERf/ TCOGF ,5HLP(,I .hedge. U tOGF..PEOetS,«Ft DGE.OWEl)SO, /tOGEBC/ 

DUEDS .OMFnjN . OPEDSN /EOOEBC/ 

COMMON/NORmaL/BIPEF.UREF.RhORFF , SMUMEF .rev I NF 


COMMON /mult /XN , JEN . pen .ShDN . YN 

COMMON /COUNT /NY,Nyi,NY2.NY3.JO..)N,.»A,NEL,MeLI.NSP.NMAX,NYI 
COIINO.j/oPT I ON / 1 OF AL . L AMNR . I NCOHP 

COMMON /niPROF/ UPROF ( 5U 1 . yM^MU I 50 ♦ , LUPPOF . CUTX (6 I . HPROr • 5U t » /INPROf/ 

YnYNHISul.LHPK or. CHYX(6) /INPROF/ 

C0MM0N/NE.O /AFTRNS.PLAR 

COMMON/NFYI;. /APROM5(ll,YHYNA(bUI.LAPRriF.IAYP.CATXl6)»AFWALL 
COMMON /TPRor / FPSl 250. 3 ' ,PRT I ?50»3 > .hleT t 2bO. 3 > 

COMMON /Of.ORI/ C uu ( 25 N . 3 t . c U V ( 25y . 3 I . C V V ( jbo . 3 I . C W" ( 2S j , 3 I . 6 AM A . ZF /OMORI/ 


C 

IFILUPRpr.EN.., IGO TO 5 


.iSc experif'Entau u or h profiles, first convert arsdment tables 
TO YTIL. 
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TMl«YN/(BLREF«iETAO) 

00 Hlu t«l iLUPROF 
YBYNUU) ■ YOYNlMt»»TMl 
00 H2u I«| iLHPHOF 
YBYNHJ t » ■ YBYNH( I »*THl 

on *125 I«| iLAPROF 
YBYN* (1) ■ YBYNA(11«TM| 

lUYP».j 

00 !■! |NY 

CALL *NTERP( YTIL f I ) lUVAU »Ou«MV> t 1 0 YP , YB YNU , ORHOp • L»PROF »CU Y X i |UYP» 
U( I , JN » ■ UVAL»UEoeE 
lF(LAPROFtEO.„>)Ga TO MBb 
UYPBi, 

JO HHj r«l,NY 

CALL XNTERP ( Y T I L ( H i ALPM A , I , JN , l ) , OUHM Y | , 1 A YP , YO YN A , APROF . 
LAPROF.CAYX , I aYPJ 

AI.PH* » I I JN , 2 I «0t AO* ( I •0-At_PHA( I • JNt n I 
•4H.J Al PMA ( I , JN , 3 ) »v. 25» ALPHA { 1 , JN ,2 » 
ir (INCOMP ,r,T, u ) GO TO lUT 
lHYP*o 

00 HBc !■! ,NY 

call XNTEHP(YTlLt!),HVAL i DuHMY 1 , I H Y P • YB Y Nh • H^POf i LHPROf , C h Y X t IHYP I 
SH(f,JN)aHVAL*SHEoGE 

*♦50 h'1»JN> ■ Sh*!iJN» ♦ U« I I j|^l»*2/2»0 

GO TO 210 

rALCl'LATf, U PHOFILE ACCOROInG TO INPUT PO«cH LA»« 

5 TMi » U«R*YT1L(NY| 

Tm2« I • /PI. Att 
Th j*t'. I • y T 1 L ( N Y ) 

1 H I »C 


uo 

1 I » I • 

NY 




IF 

(IHI .• G T 

# ) 

r.O TO 

3P 


IF 

( YT IL( I ) 

• LT, 

TM3 ) 

GO 

ro t mu 

IHI 

■ I 





IF 

( YTTL( I > 

• G ^ • 

Th 1 1 

GO 

TO GO 


Ul(,JNl ■ UEOGE* ( Y TIL ( I I /TmI » ••TN2 
GO TP Ijj 
5J 01 I , JN laiiEOGE 
lOJ continue 

S1.0PE-UI IMI ,JNI/YT1U( IHt I 
00 15b I»lfIHt 

luS OlliJNi • YT 1 1 . I I I aslope 

CALCULATE H »Nn SH PROFILES FOR COflPRtSSIBLt OR INCOMPRESSIBLE 
CASE* 


HIO 

R23 

R25 

*»30 
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no non non on 


1F(P-C0M^’*F0»;|)G0 TO l20 
IU 7 DO I Hi » ■ I I NY 

SM I I • JN > «5HiVALL 

II r» Hri,JN) r SHAiALL ♦ UMtJN)#»2/2*U 

GO in 711. 

120 DO 2liw 1 ■ liNY 

H( 1 t JN»«m»(ALL + U« 1 ,jNl/UEDr,E*<HEO('.li.-M*ALL) 

20n SHll.JNI • H(I,JN) - U ( 1 » Jn » 

I rAlCUlATE constant aUPHAI PrOFILE ACROSS BOONUAKY LAVEKi 

Al. PHAI ■ ALPh*IE 


IF (LAPROF .GT. j) fiO TO 3 IC 
00 3i; V I « i * NT 

Al PHAI I ,JNt ' )«AF 'ALU»( AFtOGt-AFRAtLl*! 
..... AiP..A(n»M. alphai 2 )»n, Alp* 


1 . iMl/LK-'nGF 


AL A < I I JN t 2 ' * j . 80* * 1 • U* AL^H A ( ! • JN t I I ) 
3:)0 ALi^haCI|a'N, 3* «C*75»ALPHi(iiJN|2) 


rALCULAir RHOV PROFILE* 

311 TMl » Uw/YTIUNY) 

DO !*I»NY 

S,,r; HhOV(I) b SNOY ♦ TMI^YTILtll 

CaLCOLaTT C'OJ and PROFILES 

DO ! .Ji J I«liNY 


Tm2 » YTtL<I)/YTII(NY) 

C1JU(1 »JN' * S# ^E-S*UEDg^ ••2*Tm2* 11 ♦ I - TM2)«*2 
1 nf tPS ( I » JN J •RFYINF*ZET AO* YT < M • ( ij • 2j^ * T M2 • T i • T ^2*U • ^ 3 1 

, SQRTCCUUn »JN) »*<2.|H3233’? - | • I 832339* T N2 ) • I 98382U 

move forward valufs to back values* 

C 

DO 6:kj 1 = 1 »ny 
u r I t A<u ) su ( 1 • JN ) 

SwiI I , J0 1»5Ml I • JN) 

H( I # JO)»M( T * JN) 

CUU I I f JO ) *C JIM I , JN ) 

Cl.'V f I , jn»=CNV( I , JN) 

C V V ( I * JO ) «C / V ( 1 , JN ) 

( I • jnl * C’Y J < I f JN ) 

U( I ♦ JA ) = un ♦ JfH 

CU’J { I , JA ) • CUU C I I JO ) 

EPS( I * JO) « FPS( 1 ♦ JN) 

EP5< I . JA i « E‘»*jC 1 , JO) 

DC 6 *)^ IEl • IfNP’L 

6uC; alpha ( I t JO, IF.L ) ■ ALPH A ( I , jN , I E L) 

RETURN 

END 
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ij u o KJ ^ 


SU'iR'>UT I flE RDTAPE 


ctpreao search restart Tape por pnoher station and read restart data* 
c 


COHHON/or.PENO/U(2SJt3)tHl2sO»3it ALKh A I 2SU 1 3 » 3 I »RHOV ( 250 t iSHI 2SU|3 ) 
COHMON/INOEP /S»0S I X iDX » T I 250» »ot 

COMHON /YTABl.E/ YTU.(253) ,b5P«2SO» »B«>PP<2S0» iITTILP, 1TT1UF, 
t CVTIL(A) 

COMMON /ZCACC/ ZETAOi2CT<(2ETAN«ZeTAP,ZSTARf3) tOSZ(2) tVEETA, 

t YTZETA , YEOSg 

COMMON /GPARAM/ 0 L S T A K i T ME T A t T AU* » T AU I , BC F . SQR t S T AN | SNTfiRL » 

I SOAOSiSORO 

common/ const /SINiT,X1NIT ,xMAX ,0ELT a I ,SNI ,SN2«Sn3,EPSLNI »EPSLN2, 

1 EPSLN3.CONVRq,02DT,OMOT,OoYSQ 


/YT able/ 

/TT able/ 

/ZCALC/ 

/ZCALC/ 

/GPARAH/ 

/GPaBAN/ 


COMMON /COUNT /NY. NY I tNY2fNY3«JO«JNtJA(N£L»NeLl>NSP,NHAX|NYI 

COMMON/ STaTN /ISTaTN.MAXIT.ITER 

COMMON/ NE YR /RST aR i RSTPR , xST AR »OLSTO ,QUSTTH 

COMMON/RSTART/IRSROitRSRRfjTAPE 


C 


REA I NO I Tape 


10 REAO IITaPEI ISTATN 

IF(ISTATN-IRSR0»|J,30.ZU 
?j ARITE (A.YolOl IRSRO 

’03C FORMAT (//37H THERE IS NO RESTART OATa POR ST A T I ON t 1 5/ / » 
CAUL EXIT 


rEAO RESTART OATA FOR STaIIoN (NSRO* 

30 BACKSPACE ITAPE 

REAO IITaPEI 1ST ATN tNY.DY , zETaOiZETA>ZET AN tZETAPiZSTARTI ) ,OSZI I I i 

1 YZET A , YTZET A , YtOGE.KSTPK.SNTsRLtSaROS, I IO(!*J),HII,J) 

2 .ALPHA ( I , J , I I , alpha I I » J,2 I , ALPHA! 1 , J, 3) .SMI I , J) , l.l ,NY ) , J«1 ,31 , 
A IRH 

3 OVlI),I»liNY),(YII»,YTlLCI» ,BGP( I » ,8 gPP| I I , !■! ,NMAX I 
REMIND ITAPE 


SET other counters ANO CONSTANTS HASEO ON RESTART DATA* 


N Y I a N Y - I 
NY 2 »NY -2 
O2DTau.S/0Y 
ORDYa«. 25/OY 
OOYSOaI./(OY»OY) 

return 

end 
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SU3R0UTINC SPCALC 

CSPcAtC «»ERFO«M A SERIES OF £ N T ROi* Y -PHESSURE CALCULATIONS* 


cortMON /POINTS/ HSUMnai.ssDHiui.cpRUSi.aLVTPdai.oLWPTim, /points/ 

, (,»MMASn3> |P( n> .TZ,PPP«l3»*»Pil3*.SON(IECll3»* 

1 TTTII3» /POINTS/ 

COMMON/SPCCES/COEF (2»T|30) tS(30) »ENl30*l3l#ENLN|3B|tM6|3O), 

, DPLNt 3 U) fAl 15 . 331 ,5Ud(30t3l ,IU5EI30I tTENPlSO. 2) 

COMMON /MiSC/ E'^'^ • SUMN I T r , SO . ATOM ( 3 . I OS • » LLMT I 1 5 1 t Bo I I 5 I t /MiSC/ 

»UP< | 5 . 2 > »TM,TLO.«,THlO,THIfiH.PP.CPSUN,OF.E«NAT* /*!«/ 


2 MSUB0.HPP(2) ,RH0(2) ,¥MIN(2) ,VPLS(2J ,»IP|2», /"ISC/ 

3 N A ® ^ * ANOM ( 1 5 . 5 1 » p£f NT ( 1 5 * » ENTh J I 5 I t F aZ ^ I ® • ^^iSc^ 

H RTemP* li» .fOx< I5 » »OeNS« 151 »TLN /«TSC/ 

COMMON /INOX/ C0NV6,TP,MP,sP,M0LES,NP,NPT,L»N5,KNAT»|M*T.I«|*NC, /INO*/ 

t JSOL. JLIO. IC, 102 /INOX/ 

COMMON /I NODE /TIN(I3I.0FIN( IDtHINllTI 

C A I* 

C SET O-F AND INlTlAt TEMPEMAT>J0E GUESS. lENTUOPy STORED AS So*> 

C 

TT-TINl 1 ) 


C ••••• OF |S equal to FUEl/OX iO I 2ER mEIGHT RATIO. MAT I7.IR73 •••••• 

WP( I ) a I . 

*P(2) a OF 
DO 2J.. I«I.L 

2-jO Ball> ■ «t»P| I >»S jP< I . 1 1 ♦ aP ( 2 ) ‘MuP < 1 .2 » > / ‘»F • I » ♦ «IP(2)» 

DO 43 IPal ,NP 
C 

*-C SET ASSIGNED PRESSURE. 

C 

PPapI IP) 


CALL EOLBRM A 22 

T2-TT 

C* the test for equality OETREEN NON'INIEGERS mat NOT BE MEANINGFUL. 

IF ITT. NE. 3.1 GO TO 23 ‘ A 2** 

IF INPT ,EQ. -J) RETURN 

23 Raj A 24 

C* the test rOR equality BETnEF.N N0N»|NTEGERS hat not be meaningful. 

IE I IP.EQ.NP.OR. TT.EOiO. I TO 30 A 27 

Ka^PT A2B 

IE INPT. NE. 131 GO TO RO A 29 

30 IF IF .EO, i) RETURN 

NPTa3 A 34 

NPTaNPT*! A 37 

C SAVE COMPOSITIONS FOR ESTIMATES OF NtxT POINT A NO 

UO 40 I « I.NS 

41) ENI I ,NPT I a ENI I ,X 1 

RETURN 

ENO A 50* 
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SUBROUTINE TABLES 

CTAPLrS KORMAL17E TABLES AN© INITIALIZE 1 ABLE POINTERS FOR SUBROUTINE 
XNTFFP. initialize *Ai.L AND EU 6 E CONDITIONS FOB PERFECT 
GAS OR HTDR06EN-0XT6EN STSTE«« 

COMMON/ I NOE P /SiDSiXtOX,Yl25C» tOT 

Common/ xtablf/rrtabi SOU I « xtarrwisoui *lrrtab, ir«xp«crbxib) , 

I PE tab (SOU) t XtABPEIBOO) tLPETAB* IPEXP.CPEXIAI , 

? UETABISOCIt LUETaB* lUExPtCUEXIA > , 

3 XfOUnXISOU) fLOUOXT* iouoxp 

COMMON/LTABLE/TRTABI 100) IXtABTRI IOC) ALTMTAB t IT«XP, 

I SMOTABI 100) (XTABRO* too) tLMOTAB t IM|)XP 

COMMON/STEPSZ/OXL IMI50I i X L | M I SO > • LOXL | M » | OX , 

I SKTAal5u)iXTABSK|SU).LSKTA8,|SK« 

? OX I 

C0MM0N/6E0H /RW ( 2 ) i DR«D X ( 2 ) , T H« 1 2 ) 

COMMON /ZCALC/ Z E T AO , Z E T A , 26 T AN , ZET AP , ZST aH f 3 ) t OSZ < 2 I * TZET A t 

I ttzeta.teoge 

C0MMCN/«IALLBC/TWAtL«SH«ALL,H*ALL»SMO*0,SM0<««SM0«N 
COMMON /EOGEBC/ TEOGEiSHEOcf tHEOGEiUEDGEtPCOGEB,AFEDGE>DUEOS0t 
I OUEOS •OUEOsNiPPCOSN 

COMMON/ NORMaL/BL Ref I UREFtRuOREFtSMUREFiRET INF 
COMMON/MULT /XN,UEN,PEN,SmDN,TN 
COMMON/OPT ION/ I deal iLAMNR , ,NC0MP 
COMMON/PFGAS /Gamma, FMOL*T,PRI 
COMMON/f4E»'Z / RHOEB • SHUEB ,RtTL ,SXO 
COMMON/H2D4J/INJH2 

XNORM»XN/BLREF 

normalize RK vs. X TABLE ANq INITIALIZE CORTOUR PROPERTIES. 

C 

00 21 1«I iLPT-TaB 

RRTAein«RATAB(I)*XNORM 
2p XTABRKI) ■ XTABR»( I I •XNCHm 
IR«XP *0 

CALL XNTERP I X , RW ( 2 ) I ORftOX ( 2 ) . I RttXP , at ABRW.RMTAB .LRMT AB t CRXiX • 
j IRRXP) 

TMA«2»»ATAMDR*0X(2)) 

r 

C pack values ECLAL FORMaRD values INITIaLLT, 

c 

N« I I ) aRPl 2 ) 

OpibOX < I ) aONwOx I 2 ) 

THAI I I«TI-»l( 2 ) 

C 

C NORMALIZE STePSIZE TABLES anO INITIALIZE STEPS|Zp oS. 

C 

DO SO tai (LSK1 AR 
So XTABSKd) a XTABSk t I ) *XNORh 

ISKat 
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/ZCALC/ 

/ZCALC/ 

/EOGEBC/ 

/EOGEBC/ 


o o o noon r^ortoo r> o o r> o o o r> 


DO IDO 1«1»L0XL!M 
ICO • XL I^' ( I ) ‘XNaWM 

IDX-l 
DX>DXI 

DS»DX/C05(TH»( I ) ) 

C 

C SET UP MpOTVy VS* X TAPLE initialize 5M0»N« 

c 

UC 25»L T»I.LHDTAB 
5>BDTABn)»SHDTAB(l)’*SM0N 
25,0 XTABKD(I) « XT ABMO I I ) • A^ORm 
! MDXP»C 

CXLL LCUPV ( X , X T A«MD ♦ SM|>T Ab f L^^DT AB # ! ”DXP » SHDPN ) 

5ML'*« N»SMO?.K'/ I KHDRf;F*UREP •Ze.T AO I 
C 

C PACK ANO average VftUUfS EQUaL POKPAKD VALUES INITIACLY* 

C 

SHDYJO»SHnft'N 

SMDW«SMm^'N 

SET UP T'.*» VS* X table ANO INITIALIZE IPALL* 

DO 2f,v I»liLT#TAR 
3l: XTAPTvKj) * XTAeT.v( I >*XNORm 

I T i . X P » n 

CALL LCUfV <X,XTABT^iTPTAH,LTrTAH,iTPXP,Tl*ALLl 
IF I < lOFAl .(,1 •: ) • and* ( lNjM2,f.r>.c. M GU TO 390 

MVDROGfli-PXYGEN E0U|L|BR|UM» 

PRESSURE TaRI f HAS BEPN INPyT. SET UP PE VS« X TABLE FOR 
ISENTROPIC expansion. 

DO 35y 1«I .LPETAR 
PETABI ! )*PETAB( I )*PEN 
3&r XTARPLIT) ■ XT ABPE ( I ) •XNOKm 
1 PLXP»ri 

rAU HOOnF TO DO ISENTROPIC FXPaNSION aT EDGE OF BOUNDARY LAYER 
TO OPTaTN edge 'VELOCITY TarLE UtlAB* 

IPEOGE AND TEOGF HAVF BEEN INPUT.) 

CALI HOnOE i2) 

SET vpLOriTY Ti^bEF^ LENGTH anD FLAGS* (XTarPE IS ARGUMENT TABEE 
FOK UETaR. ) 

LMLTAfi«LPE7 At 
lUEXP.U 


CALL HOODE TO EVALUATE MNaLl • SH»aLL* 

CALL MOO«U (3) 

GO TO SOo 
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PEKFECT GAS OPTION. 

CALL IGOOt FON PERFECT GAS OPTION TO OfiTAlN SHWALL AND HNALL* 

J’O CALL IGOpf. ( TWaLL , SHNS •PEOoLBt t *OUNHT I tOUNNVZ •DUHHT3) 

SHkVAl L»SH.iin/ ( UREF*UREF » 

H'.iaLL«SMV ALL 

CALL IGOOE with TEOGE AND PeDGE TO ObTaIN SHEDGE AND HEDGE* 

(HEDGE IS A constant.) 

CALL IGODE ( TEDGE , SHEB fPEDgFfl , I ,RHOf.H ,SHUEB,DUMmY 1 ) 

SHEOGE«SHEP/ (ljRFF*URrF) 

HED6E«SHF,nr.E*UE0GE»UE0GC/2 , 

riven a PRESSURE TaJLE, GENERATE A VELOCITY TABLE* OR VICE VERSA* 

the test fnr> eQUaLITv BEIHEEM mon-INTEGERS HaT not be meaningful* 

IFIPf.TABi ! I .EQ. I. ) C.0 TO NS;, 

TMI»IGAM'1A-1.)/GAmMA 
00 Hid I«1 .LPETAB 
PETARClmPETAB ( I ) *PEN 
XTABPEd )»XTABPE(I)«XN0RM 
SHe«SHEOr,C*(PETAB( 1)/PL06EbI»»TMI 
*Mr, UCTAPm « SORT ( ?*t.» ( hedge - SHE I I , 

LUETA8«LPET AR , 

IPEXP«0 
IUEXP-0 
GO TO 5t)3 

N5,> FNORM ■ IIEN/UHEF 

TM|«GAMMA/(QAMMA»I . ) 

PTOT ■ PEDGEB*(SHE0GE/HEU6e)**(-TMI I 
00 MAO I»ItLUETAB 
UETAB(II«UETAR(I ) «FN0RM 
XT aBPE Ct)«XTABPE(I)*XN0Kf1 
ShE»HEOGE-UETAB( I l••2/2. 

PETABtn » PTOT* ( SHE/mEOGE ) »«TM I 

IF C INCOMP .EO. I) PETAaijI • PEOGEH ♦ 0 * SO'RHOEB* I UEOGE • • 2 - 
1 UETA«« I I ••2»*UHEF**2 

NAa CONTINUE 

LPETAB-LUETAH 

IuEXP»0 

IPEXPaQ 

evaluate pedgeb* opeosn, anq hedge from Tables generated* 

SOO CALL XNTERP I X * UEOGE t OUHH f | , I UE XP . X T ABPE * OCT AB *LUET AB * CUEX * I UEXP I 
-RITE VELOCITY TABLE UETAH VERSUS XTAHPE* 
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r» n 


Vjja ( iMi) 

*><lTe (A.Vjio) (UET*B« J I t I»l iLUETAB) 

*>jiu format «2Sh velocity Table gene«*ted'/5x . 1 3neo(iE velocity// 

t 

AiRlTE < XTABPE * I • » I ■ ' t L^t T AB I 

format ( /i>A I I MHAx I AL 0 I ST AnCE// ( «E 15.6 ) I 
C 

C USING UETaB versus XTABPC* GENERATE A TABLE OF LINEAR OUEOX VERSUS 

c * aT midpoints, include first and Last x. start a» end of uetab* 

c 

I r ( L’*E T A * GT • I ) GO TO &2U 
L')Ur> X T* J 
UETAfM 1 ) * J. J 

(jO to 5o*j 

LH0 D<T * I.uTTaB ♦ 1 

XTOOOX ( 1.0 Ji)XT ) «XT ABPE CLUETa^^ > 

UE T aB ( LOU:) X T ) a < ilCT A H < LU£ j A 8 ) - U t T A B ? L U t f A B- 1 ) I / f * T A BP£ ( LUL f AB > 
, - XT4HP£n.u£TA8-l ) ) 

LM i «1. iJE T Ad- ! 

00 sr>u I»! 

JaUUtTAB^l-1 

AT JIU)X C J I ( XT aBPE (J-t J^XTABPPiJ* > 

b&O Jf-TABCJ) » lUETAPf.j) - Ufc T a H » J- H » / ( A T A 0 P£ £ J > - XTABpECj-!)) 

X TDUDX ( I ) «x T AOPF ( I ) 

UCTAMC I ) s uriA«< 7 ) 

\ OUDXP-'J 
C 

c initialize velocity orPivATjvr.. 

c 

340 CALL LCO^^V (X,XTDOr)X|UETAH,LOUDXT,l [)t»0 X P . f5 UC O X ) 

O JlO >N«r>:iF:0X*CO5< Ti«l^( 7 I I 

c^ACK A‘>iO average VAI.UES LNU^l. FOR^AKD VALUES INITIALLY* 

C 

OUEDSO«r>UEOSN 

uij£DS«nurnsN 

C^LL XNTERP (XjPfnGErt, UPFOx ,TPtXP,xlABPt,PETAb,LPfcTABiCPEX, 

J IPtXP) 

KETURN 

END 
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ctfcbl transpiration and film cooling boundary layfr Program 
c initialization and control routine 

changes to tfcbl 

CCMMCN/0EPENO/U<?5ui3) .HI26L.3I i ALPH A I 250 , 3 , 3 ) , RHO» C 250 » . SMI 250, 3) 
COHMON/INDEP /S.DS,X,0**T(250I ,0Y 

COMMON/PROP /RH0(250»3) ,ShUI250,3) ,PRI2So«3) .BlMiSuoI , 


1 SHI ( 250,2,9 ( ,SC I (250,2,9) ,T I 250 , 3 ) ,A»(25oJ 

COMMON/TPROP /eP 5‘ 250,3I ,Pf,T(250,3) ,BtET(250»3) 

Common /YTABle/ YT 1L * 25o ) , ogpl 25 w> (B^PPI 250) , | TtilP, i VT ILp , 

t CyTILIAI 

COMMON/MaTRX /A(2SL»3, ,B(25C, 

COMMON^ XTabLF''RWTab *5001 , X y ( 500 > •LR*Tab', I RNXP , (RWA T6 > , 

t PETAb(50U),X<|-ABpE( 5ob> •LPCTAB,iPEXptCpEXTA), 

2 UETaBIBOCI, LUETaB, lUtXP.CUEXiA) , 

3 XtDUOXISOU) ,L0UOXT, lOUDXP 
COMMON/ LTABLE/TRTASUUO) i XtABTRI lu6> tLTRTAB, I T«XP, 

1 SMOTAB(|00>,xT*BMO(IoO>,LMOTAB,|MOXP 
COMMON/STEPSZ/OXLIMISO) ;XL jM(SO) ,LOXL|M, |0X, 

» SKTAB(5Ci,XTABSFl5u),LSKTAB«ISK, 

2 DX I 
COMMON/EFVEC /£(25u» ,F(250) 

COMMON/S I GMaS/SIG I 13) ,SIG2(3I ,516313) ,SIGR(3) ,SI65(3) ,SI6SS(3) 
COMMON/ PE OM /RP( 2) ,OR»0X I 2> ,THI*(2) 

COMMON /2CALC/ ZE T AO , /ET A , T AN , ZE T AP , ZST aR I 3 ) , OSz I 2 ) , V 2ET A , 
t YTZtTA,Yf06E 

COMMON/R ALLBC/TRAI LiShRALL ,h*PALL ,SMPPO,SMO*,SMO»!N 

COMMON /EOGEBC/ TfoGE , SMEOq) » HEDGE . tt OGE , PEDGEB » AFEOGC , oUEOSO , 

< OUEOS,DUEOsM,oPEOSN 

COMMON/NORM AL/BL ref I UREF .RhOREF .SMUREF, RE YIRP 
common/mult /XN,UEN,PEN,SmON,YN 

COMMON /PPaRaM/ DLSTAR»TMe|A,TAUR,TAyi,BCF,SG*,SlAN,SNT6RL, 

I SOWOS,S«PO 

common/ CONST /SlNtT,XlNlT,xHAX,DELlAl,SN I *$02 , Sn3 , EPSLN ) ,EPSLN2 , 
I EPSLN3,CONVR6,020Y,0**OY ,OOYSO 

COMMON /TITLE/ TITLE(|3) 

common/count /NY.nY 1 ,NYJ,Ny3, JO, JN, jA,NFLiNELI ,N5P , NMAX , NY I 
C0MM0N/0PTI0N/1DEAL»LAMNR, jNCOMP 
COMMON/STATN /ISTiTN,MAX1T,1TER 

COMMON/PRnTcT/NSPRnT.NLPPNT.ISPRNT ,ILPRNT,LNSPPs,L1NESR 
COMMON/SUMaRY/SIIMaRYI 15,3C) ,NREC,NST a, |STa,NVa«, 10RUM,LAST 
Common/ ioebug/ lOEBUGi 3 ) .rmodmp.kenomp 

COMMON /inprof/ UPROFISO* ,yBTNU(50) ,LUPR0R,CUYXIA) ,MPR0PI50) , 

I YflYNHiSO) , lHPROF,CHYX(A) 


/YTABle/ 

/ytable/ 


/2CALC/ 

/ZCALC/ 

/EOGEBC/ 

/edgebc/ 


/GPaR AM/ 
/GPaRAM/ 


/title/ 


/INPROF/ 
/ INPROF/ 
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COMMON/PF6*S 

COMMO^l/^'f ♦>'! 

C0hH0N/NEW2 

C0M^10^l/MEW3 

COMMON/NE*S 

CnHMPK'/NE» 7 

C0MM0K/NE**B 

COMMON/MEfc? 

tOMMC'N/MEWlC 

COMMON/NEWI • 


/6AP«A iFHOL* T ,PPt 
/ALFFISiTLEMS 
/ RHPEB I SMO EB I rE7L • SXO 
/*FTRNS|PL 
/ I YPR 

/GPf>,PAMBiINTi)K,ZE7»PI 

/RSTaKiKSTPR.xSTaR.I>USTO,OLSTTH 

/ 1 yeq 

/APP0F<50) |YBYA<AlbO* tUAPPOF t IA7P tCA^XISI i AFNaLU 
/J2D,0EK tPHOEK 


C0MP0K/R5TART/IRSRD, !RSWR, iTAPE 


COUPON /AL/ INST AT I EPSL I N 

COUPON /INPUT/ c < *( I 30 ) I IPOlT , I THENM.PT < N , 30 »tNPR 00 f NSPEC» 

, PHAZ I 30 ) . T 1 ( 30 ) I T 2 « 30 ) 

COMMON /root/ ALTABI ICO) ,Ca 7 ( 6 ) iCCX« 6 ) ,C 0 EFCU,CPL,CPl 7 AP« 20 ) . 

, CPSUME.CRXl 6 »tCTHXI 6 l.CTLX( 4 »,CZA( 6 I i DEL XP A , D I AT UB . 

? DX I ,HG.HL t I Ax • If OOL • ICA • ‘THX, ITLX , ITZTAB. IZX, 

3 RA?SL|PPANl’L,t.'*I,RAMOL«RAMOi(k,RAMTABt 2 o)tRET ,SOI»OS I • 

44 jCViijSUMQNltTAA'iTtMPNLtTHlCKtThlTABIIOOIiTLOiTLl* 

«, TL 2 ,TtCA»TLTAhtluO) * TUBfN t TROZ » T»f,C A t T RL * TZT AB I 20 I t 


/INPUT/ 
/ INPUT/ 
/COOL/ 
/COOL/ 
/COOL/ 
/COOL/ 
/COOL/ 
/COOL/ 


C 


c 


r 


Z*«vTAP(20)i/MTUL.lTP0StT».L2,TA»<M,STANRE 

RFAL MASSL 

COMMON /OMORI/ CUiJ* 2SUi3) ifOVI 2S4>t3) tCVVlZStlfS) *CRAI2B<I*3I *6AMA»2A 


/COOL/ 
/COOL/ 
/OmOR I / 


L'ATA blank ,PIF/«.H ,3. JNI592AS3/ 

0 1 MI NS I ON P I T aB ( 5>;^0 ) • TlTAfj<500)t VHABiBoO) 

1 tXA(I5t..),XlTABl5lO)*TA( I hut') lYlTABlbCot .ZMTaB<51»0» 

LOU I valence icpi tab .SHI ( I , , f 3 ) I , « pi t Ap,,pt tap ) , « POI T»B iSmH I » I »bi ) • 

, (TlTAB,SHM|.l, 2 )),<VlTAB,SHI(I.l,*n)»T»ITAB»XTABRRl. 

2 C Y I T AP , RPT AB ) , { 7MT A8 , SHI I I , I , n I • I PEOGt .PEOGLB I , 

3 (XA , SC 1 ) I I SC t ( 1 , I ,M ) . YA ) 


NAMfLIST /CATA/ AFEDGE.AFrRHS.AFHAH , ALT AB , APROF , BLPEF .COEFCL, 
CftJVR&.CPLTAM.OELTAI .0X1 .fjXLI M ,EPSl I N .EPSLN I . 
FPSLN2.EP5lN3.FMOLRT.6AMMa .GPO .hPROF I I COOL .IDEAL. 
lOLBUG. INC qMF. INSTAT . INTOK . IPOLV, IRSRD, iPSRR. 
ITHFRM.IT/tAB.I yEO. I TPR, JZO.LANNR .LAPROF .LDXLIM, 
LHPPOF .LMPt A B.L PE tab. IK* T aB.LSKTAB.lt PTAB.LUE I AB. 
LUPPOF.MASsL.MAXIT.nlPRNT.NSPRNT.NYIjPAmB.PEOGE. 
PFN.PFTAB.pLA*. PH I ,KAmO*.RAMT AB ,KH0EK .RHOREF ,R*T AB 
.SINIT.SKTxB.SMON.SMOTAB. SMOKEF « BN3 I TtOGt , THi I AB . 

TuTAB.TUBtN*7*TAB,TZT AH.OEOGt.OfKtOEN.OETABtWPROf . 
UPEF.X1 NIT,xLIM.AMAX.XN,XSTAH,xTABB0,XTABPE»XTABKR 

.XTAPSK.XTaHTP.YHYNa.YHTNH.YBTNU.YN.ZETaPI.ZMYTAB. 

GAMA .ZK . INjH2 

COMMON/h? 1 N J / 1 N.)H? 


/data/ 
/oat A/ 
/oaT a/ 
/data/ 
/data/ 
/data/ 
/Data/ 
/Data/ 
/data/ 

/OATA/ 

/data/ 

/Data/ 
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N*MCUIST/T 0 K INP/X iTABiir IT»b,PITA9iZM1 aB»T|Ta 8 »V 1 TA 8 

SiT CONSTANTS. 

MMAX«25i; 

UNSPPCi ■ S8 
ITHfKH ■ 0 
JOB I 
JM «2 
JA«3 

ALE«^IS«| . 

TNITIaLIZF summary table COUNTtRSf |NO C0MSTANT5* 

nplc»u 

LAST*t, 

NSTA»i3 
ISTA«,a 

NVaR • 3U 
If)KUM»l7 

initialize restart FLAGS. 

C 

iTAPf «I6 

rewind itape 
IRSRDbQ 
1RS>^ R«0 
C 

C nominal values. 


or* IS I»l . U 
IS T|Tl^< I> ■ B^Ank 
6LREF»i . 
uref«i« 

RnOREF"! • 
SMURf^F*! • 

X N ■ I . 

YN«I • 

pen»i . 

SM0N» i • 

UFNb! . 

PRI«D« 

PLAW* I • 

PAHB « U»0 
XSTAR ■ U.U 
ArWALL«-9999 . 
GAMA « 0*1S0 
IK « 4 .. • A U 

EPSLIN B U»U9:. 
INSTA1 B WV9 
IPOLT B 0 
CONVNG«.OCS 

EPSLN|B.g3 
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EPSLN2«. J3 
tPSLN3».u3 
1DEAL»1 
L AMNP»o 

I NTD<«0 

N S N T ■ ^ 9 9 9 

nlhwnt*S:j 
J 2D» i 
I YfK»| 

1 

Ne:L«2 
NSP" l 

M A A I T « I 

r N JH 2«0 

c 

C tftAP INPUT data* 

c 

999 NEAO <5f9ltJ) TUlE 
9lbC FORMAT < 13A6) 

KFAP <5, DATA) 

IF( INJH2.E0*!) NEL«3 
SOW I • n*u 
SQA»DS1 » C#U 
SUPiOW»l ■ 0*u 
ITP05 « • 

I7X » C 
ICX. ■ U 
1 RX » U 
I A X « 0 
IThX « Q 
I TLX « u 

C iF Kf., X* AND PE TABLEb A«E INPUT FKOh TDK, REAP TDKInP NAMELIST, 

C nNUStU TDK TAULFS ARE YKr^RnpARILT RLAD INTq SMI ARRAY, 

C 

IF4 IhTDK.CU* j)(»0 TO 2U 
READ (S,TDKINP) 

DO t6 !•! tLRWTAR 
I A XTaBPE< T ) > XTARR'VC 1 ) 

00 \H Je 1 ,5 
DO J P I « ! • NMAX 
sm ( I , I , 

IP sun 1 »2, j) ■ * .r 

c 

C PRINT TFCHL INPUT DATA* 

C 

20 Call nlout 

c 
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rCao EgututB^tuM Chemistry qata and initialize storage in ooe* 

IPROGKAM PRESENTLY HANDLES HY DROGtN-OX YGEll SYSTEM 0NLT*| 
IFIIHEAL.EQ. JICALL MOODC (j» 

ir ( ( lOE At. , (Tij. 1 ) . ANOt I 1 NJHZ.fcQ* I n CALL HOOOEU) 

SET constants BASED ON INPUT. 

NrLi»Nci-i 

THF test Fop equality between non*integers mat not be heaningful# 
lF<(inEAL.GT.g),AM0.(PKI,ey,o,nPRI».72 
IF( INJHZ.EQ. I) PRIBO.U 
lfIAFWALL.LT.Sj. I AF*|ALL"AF TrNS 
XflORM«XN/BLREF 
X I NI T»X I N I T» XNOPM 
S I N I T»S I N I T* XNORM 
xhax«xmax»xnorm 
XSTAR«XSTAR.XN0RM 
RSTPR.I, 

REYINF • RHOREF*tlREF»BLREF/SMUREF 
UEOgEbUCDgC*UCN/UREF 

ProfiEBBPFDQFM.PtN 

P AHB«P AHB.PEN 

initialize X, Si AND ZETA# 

XbXINIT 
S«SIN I T 

CHECK IF THIS CASE IS KESIArTED FROM A PREVIOUS CASE* IF SO, 
reinitialize TABLES AND SKjP APPROPRIATE INITIALIZATION* 

IF (IRSRn .LE. 0) GO TO ZjO 
call ROTAPE 
call tables 

UEOGEbU ( NY I JN ) 

00 216 .l«| ,2 

DO 216 I ■ I , NY 
Ul I I , JN) 

M ( I , J ( «H I I , JN ) 

CI'U I I , J ) ■ CUU ( I . JN ) 

CLVl I , Jl« CUV» 1 . JN» 


CVVI I ,J)« CWI I ,JN» 

CPRl I • J|« CT<Y( I , JNi 
EPS* I tj» » EPS! I ijN> 

SHI I , JI»sH( I , 

ALPHA(I,J,1)*rLPhA(I,JN,I) 
alpha* I • J i3 )«aLPha > I • JNi3 I 
216 *lpha(i,j,2) ■ Alpha* I *jn,2> 

(.0 TO 37 

220 ZETAO • U.fl3333333«0ELTA I /glREF 
2ctan»zetao 
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jf U OR SH PROFILES RENE INpUT, 0ET£R«1NE 7 ETAO pROR U PROFILE 
IF I NCOMPKtSS I bLE OR 5>H PKo^ILE lE COMPR E SS I BLE • 


C 
c 
c 

I K < LOPROF . EQ* J ) GO TO 2VO 
IFI 1NCORP#EO»u>GO to 2RO 
DO 23b K«|,LUPROF 
I«LUPROF*f l-K 

TfM-ABSt <UPR0F< T ) -UPROF I LUpROF ) ) / UPROF ( LUpROF I I 
IF I'TMI #GE* go to 233 

TM2 ■ THl 
GO TO 23b 

233 YPYN2«YHYNU(I^l)-(YBT»^UII^l>-tBYNUf|I Tm2-0#U1 )/<Th2-TH1 ) 

GO TO 250 
235 COOTINUF 

2*40 00 2R5 < ■ liLHPROF 

1«lhprof^i-k 

TMl«APS(fHPROF*!) -HPROF C I MpROF ) ) /MPROF (LHPROF M 
IF (TMl .GE. GO TO 243 

TM2 ■ TMI 
GO TO 2H5 

7M3 YpYt')7*YpYNH( !♦! >-fYpYNMl I^j )-YBYNH( I > )*(TR2»0*bl )/ITM2»TM| ) 

GO TO 2511 
245 CONTINUE 

750 ZFTaO « '"M/RLREF* Y&YN/ 

2LT AN*ZFVA0 
C 

C StT 1MITI;.L AI.PHA*< rO» T-P ^0“ ^ L I «R i CALCULATION. 

C 

AFWAl.L*APKOn I ) 

C 

c SLT UP Tables ANO TNITIALI/f X-OEPLNOtNT WALL and edge CONDITIONS. 
C 

2*»? CALL Tables 

XMAX»AMlNl(XMAX,XLlMtLDXLlM)#XTABSMLSKTABn 

:• TMF TLSI For equality PETREEN non- 1 nTLgERS nay not be MtANlNGfUL# 
ir IZFTAPI .EQ. j. )G0 TO 23 
ZFTAP«ZETAPI 
GO TO 35 
C 

c calculatf initial zetap if nOT input* 

C 

23 REYL • RH0Efi*UCn6E»URtF«BL«EF/5HUEB 
IF CLAMNR .LE» UI GO TO 3^ 

SXO » RrYL*ZF.TAO*#2**i.li4o 
ZETAP*2.5*SQ«T< l./(REYL*SXyn 
GO TO 3b 
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nr»r> non noon on no ono 


30 SXu*( iOELTAl/'(QUREF»*37) » • •&•»£ Y L I •• • 25 
2CTAI»«.833».37*.«/(<l»tYL*5xtf»»*»2» 

35 ZSTAR<|1 ■ ZETAO - DS*ZETAp 
DS2( I )»0S 

StT UP arrays of Y, yTIL.RGp, ANO BftPP AT EACH MpSH POINT* 

CALL GFUNC 
020Y«a«5/0Y 
0H0Y»0*25/0Y 
0OYS0»|./(0Y»0Y) 

TMrTlALITt Hi SH, ALPHA I , AND RHOV PROFILES AfKOSS THE ROUNDAHT 
LAYER. 

CALL PROFIL 
RRITE (A,3I ) 

3| FORMAT I I Hi i33 X I ZhNOi I 7X , I ^U, I9X . IHK I I8X,3HEPS/ I 
DO 32 !■ I iNY 

Al ■ un ,JN|/lJtNY,JN) 

A2 • CUU(I.JN)/U(HriJN)«»2 
A3 ■ EPSl I 1 JNI *SMuREE 
32 RRITC (Ai36) IiA|,A2,A3 
3a format (33X,I3i*4x, IP3E20.7) 

rAl.CUlATE laminar TRANSPORT ANO T MERflOo Y N A N I C PROPERTIES AT EACH 
Hf:SH POINT. (BLE constant FOR NOPJ 

37 DO **3 I « I iNY 
NO dl.t«I|.»N) • ALE* IS 

irilPtAL.GT.OlGO TO SO 
CAlL HOODE « R) 

60 TO 7a 

PRESET QUANTITIES WHICH ARE CONSTANT FOR IDEAL GaS OPTION* 

S3 CONTINUE 

IFl INJH2.E0. 1 1 SO TO 101 
DO Au I > I |NY 
ALPHA ( I I JN I I ) a I . 

SH 1 ( I * JN , I ) a I . 

Wu SC 1 < 1 I JN I 1 1 a I .a 
Do 12J I al ,NY 
SHBa5H(I,JT4»*UREF*URFF 

Call IGOOE I T I 1 , JNI tSHBiPEo6EB>U*RHUH,SMUB*PK( I , JNI » 

RHO( I iJNlaRHOB/RHOREF 
loo SMU(I.JN) a SMUB/SMUREF 
GO TO 70 

lUl Call HOOOEIHI 

PRESET turbulent QUANTITIES, 

70 DO 80 I a l.NY 

ft t)a H(JP( I »/«2FTAN*2ETAn*REYINF» 

Ell) a RHOI I , JN)*OGP( I lATETAP^YTlLin/ZETAN 
PRTI t I JN)a| , 

00 BlETI I t JN) a I ,c 


- 237 - 


n r» n r\ n n rv n n no 


c 

C rAUCL'LATE turbulent TRaNSRURT PHOPERTIfS AT EACH MESH POINT. 

C 

IF • LaHNK.eO* i) I GO TQ «| 

Oo "2 I*l*NT 

nz eps( t , JN» • u.g 
60 TO 83 
Rl CALL EDDY 
C 

move forward to back values, 

83 on |7u I • I.WY 

RMOI 1 , JO)«KHO( I , JN> 

SMU« I ,jn)»5HU( I . JN» 

PP( I • JO>«PRI I • JNI 
OLEI t . J0>«RLE( I tJNl 

cuo ( t , jn I * cuu ( I , JN I 
cuv( 1 . jo> • city ( I , jN» 
cv V n , JO » ■ f V y < i , JN » 

Cww ( I , jni « ( I , JM 

00 llj ISP«I.NSP 

SHI c I , jn, ISPl.SHl { I , JN, ISP , 

in scni.jo.isp) ■ sci « i • jn. ispi 

T ( I , JO)bT( I ,JNI 
fPSl I , jn»«CPS( I , JN) 

PPT ( I , JO J »PRT ( 1 , JN ) 

120 Bl.ETlI.JO) • BLET(I,JN) 

CALCULATE GROSS BOUNDARY LAytR PARAMEIERS aT S ■ SINIT. 

IFlIRSRD.GT.O )RH01 NY,JAI"Hh«<NY,JNI 
call PAPAi-tS 

PRINT AT INITIAL STATION. 

IF ( IR5Rl>.E«.‘.) I STaTN«U 

ISI'RNT* J 

ILPRNT*J 

Call print 

having completed all initialization, solve THE HOUNDART LAyER FROM 
X m XINIT TO X ■ XMAX. 

C 

CALL EXECUT 

IriRSTAR.GT.L. )WRITE '6,?f»^j) RSIPK 
V80C. FORMAT t/Z/ZHZH ThROAT RAL'iUS CORRECTED FOR DISPLACEMENT , 

I IIHTHICXNESS •»|Pt|‘l.7) 

WRITE IA.33SI 

33.*, format I ///27X , 7SHTABLE Of CORRECTtO CONTOUR POINTS NORMALIZED AND 

1 dimensional and delta star/// 17X , IRMX I normal I ZED) , I I X , 

2 IRHy (NORMAL I ZED 1 , BX , I7M0ELT A STAR < FEE T ) , | Jx . | 1 H t (IN FEET), 

3 ISX , 1 IHV ON FFET )// ) 

M • 0 

MAP ■ 0 

REwINO lORUM 

DO 3()o V • I .NRE C 

RCAU (IORUM) NSTO (SUMaRTI I tJ) • J • 1,NVAR), 1 • l.NSTI 
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U.1 300 1. • I.NST 
XCCP « 5'.IPARY(Lt2 »/HSrPP 
YCCP « SDMARy (L I J-.) /HSTPW 
ir «sumahy(l»2u) tLT. astah) ao to 3io 
Map • MAP ♦ 1 
XAImAP) a xccp 
YAIMAP) a YCCP 
3 I C M a M ♦ I 

3«U WPITE («.3‘«0l Ml XCCP|TCCP»sWMARY ,S0M*HY<Lt2U» »SUMART<1,» »0» 

3**o format » I5i J X I JP5E*5 i8 » 

• TMf test for equality between now. integers may not be MEANINfiFUL. 

IF (RHOEK.EO. J. >RHOEKaRHO(Ny iJN)aRMOREF 

• THr test fop FOIIALITy PETWf,fN NON- 1 N t eCiERS MAY NOT BE MEANINGFUL. 

IF lUEK.EO.*' . I UEK»U « My , JN I *uREF 

PAREMaTHET A-«LREF»SNTG«L*RhU«FF*UREF/ ( K'HOCK«UEK«RWt 2 J •• J20 » 
TMI»NHOFK*UE< *UEK 

BRKT»TM|*PARFn-(PEDGFB-PAMb »»olstak 

THLOSSal j, «P I E»Rw ( 2 ) aeLREF | • • J20*C0S < TMW I 2l >«BR kT 
MPITE (A.9V0L) TMeOSS 

9PC0 format (////IHH Thrust LOJs a,tPF|H.7| 

IF CIPOLY .EO. o' STOP 
CALL LESOAR IXAiYa.MAP) 

END 
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CTPCAtC 

C 


5LIBRt)UTTNtTPCAtC 

PF.t»rOKM * single TEHPErATURE-PRESSUPE calculation. 


CCHMON 


COhMON /PI sc/ 


\ 

7 

( 

1 

2 

3 

(4 


COHMON /IMDX/ 


/POINTS/ HSUM( 131 iSsUHl I 3 » . CP*< <1 3 I ,OL VTP ( I 3 I , 0 LVPTI I 3 » » 

GAHMAS(I3),P(I3),TZ,PPRII3I,»««I3»,S«»IVEL(»3I. 

TTT t 13) 

ENN| 5 UNNiTT iijUiATON( 3 t 106 ) .LLMJI 15 ) »B(M IS) t 
BL'P( lSt 2 ) ,TH,TLOA|TNlD.THl 6 M»RP»tPSUlnOF iCURAT. 
HSUPii.HPPIZ) ♦''"*'^' 2 ) • 

NAMpl )SiS|«AnUMI t 6 i 6 >|PECPTII 5 lttNTHtl 5 )»FA 2 II )» 
RTEMPIIB) ,M)X« ) 5 ) .OENSI IS) ,TLN , 0 ,.NC. 

CONVG .TP .HP I S»’ iMOLES.NP iNPT^L.NS.KMAT , IHAT. |«I »NC. 


JSOL.JLtO.IC.lO? 


A 2 
/POINTS/ 

/points/ 

/n I SC/ 
/MlSC/ 
/Wise/ 
/MISC/ 
/«lSC/ 

/ inoa/ 

/ IND*/ 

A 1 6 


PP«P « I ) 

TT«TZ 

PP ( I ) ■ I * 

NPIZ) • Of 
SUM»»PI I )*WP«Z) 

00 2C0 !■ I »L 

2 tr- Of ID ■ «ppn)»puP< I »i • 
call EOLP.PM 

TZ-TT 

THE TEST FOP EO'IALITY BETPEIN 
IF ITT .E0» U»u) return 
CALL ANSWER 
RF TURN 
F-t L 


♦ »|P I Z ) •BoP I I . 2 ) ) /SUM 


NON 


integers may not be MEANINGFUL! 


22 


bvl- 


SUBROUTINE TRIM U.X.B.N.Nn) 

A A. A. ni . a( 2 SL‘) .-totNt);) *HBC 2 S 0 > 
OIMF VISION a<NN# 3 )*AA'*»^ 


c 

c 

c 


c 

c 

c 


POPRARD Et I J ^ 


A < I » » A M f 3 W A < I » 7 > 

Ph< I J >/At 1 i2) 


DO I 1 • 2 » ^ 

A A A» A ( 1 I 2 ) i • 

Aa( 1 )«A( 1 « 3 )/AAA 

I BlU 1 )-PB( I 


I ) • A ( 1 I 1 ) 
•|)tA(l»l))/AAA 


PACr SlitSTlTUTlON 


00 2 I» 2 sN 

JmN -1 + 1 

2 X IJ » »BB (J)-X(J^1»*AACJI 
KETURN 
tNO 
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SUBROt'TtUE VISCX 

CVISCX routine to calculate VjSCOSItT ANO PHaNOTL number eoh 
t HTOSOGEN-OXYCeN system mOM mixture FBRMULAS* this subroutine 

c REPLACES ODE SUBROUTINE v»5CX« 

VISCOSITIES (LBM/ET-SEO stored In VfSCE|I»t 
PRANOTI. number STOREO IN PRUT. 

COMMON /IMOX/ CONVG,TP,MP,sP,MOLES,NP,NPT^LtNS,KMAT j I M AT , I Q 1 i NC i 
jSni .JLIU»IC,10? 


C'“M*10H /POINTS/ HSUMC 13> iSsl'MI I3» *3) ,I)LVTPI 13) ,0UVPT( 13) i 

I G*NMAS(|3)fP<l3) tT2 tPPPl 13) tWMl 13) iSONVELt >3) « 

? TTT(|3) 

COMMON/SPECES/cOEE I 2 I 7 I 3u ) ,S( 3o I «eN| 3Q( I 3 ) ioUm2 ( 7A«) 

COMMON 7Vjb^Xo7 V I SCE * * 3 ^ • PR ‘ I 3 • 

OoMMOH^Cpj /Cp I I 30* f OpMAfj 
C 

D T mens I ON EKO ( 9 ) lEMU ( V ) ,M*;iT ( 9 I ,PH 1 ( V ,9 ) ,SMUH I So > »SMUH2( Sq) » 
t SMUH20(bU)<SMU0(bU)tSMUOH(b0| •SMU02 I bfi) tTTABTSO) 

I tSHUNISC. I ,SMUN 0 ( Bjl tSMUN 2 (SU) 

c 

C SPECIES molecular REIGHIS StCREO in KMAiT IN SAME ORDER AS THERMO 
C OATAt NAMELY (II H 12) (3) H20 (9) 0 I5| OH (A) 02 

C I 7 I M t B ) NO ( 9) N2 

C 

DATA IEMWT<I),I>I ,6)/It0unt2«0lAtl8.j|6tl&*0u0i|7«008>32*0002 
data (EM.YT I I ) , I«7 ,9 I / I H«UUBi30*OJ8 (28.111 A/ 

C 

OATa (TTab« 1 )(SMUm( 1 )(SMUH 2 <I) (SMUH 20 I I I .SMUOI I ) (SMI.IOHI I ) |SMU 02 < 1 I 
» (I- 1 > ) J)/ 

1 IcC.f 3H»3£-A, 37.8E-A, to.uE-A, 7u.t)E~Ai 78*|E«At 7A.AE-Ai 

2 2u0». 5A»’E-A, AA*A£-6, 7 7 . I E- A ( I 35 • I E“ A t I HM . 2E - A i I •* 7 . 9E- A i 

3 3U0»» 7H.9E-A| 89 . 2E - 6 , ! U** • AE - A i I 0B . AE-A t I 9 A • 7E • A i 20* • RE”* * 

a RfO** 9U.3E-A, 10«»Al-A, |H3«2E-A(23«*.Hi-Af2Hl •9E-At26*»5E-Ai 

S 5L0»«lf.H«2E-A,l2A«|E-A,l7B.6F.-6.275*0E-**26|.2t-A»30l»UE-Ai 

(, Aud.,;)7.SE-A(I‘*2»UE”8,2|M.VE-6i3l|.9E-At3l8.0E»A*3**l«RE-Ai 

7 7„0» ♦ I 29.9E-A , i5A.8E-A.25I .SE-Ai39A»*«E-A»3b2»2EAAi379» lE-Ai 

8 R 4 .O** 1<4 1.7E-A, 17CV.8E-A ,2fl7.9E-A(379»oE-**38**»2CAA«**lH»8E-Ai 

9 RuO* »I53 »(E-A,iB‘*.5E»A,323.SE-A|**o’»*C“8.‘*|A»5E-A»998»5E-4» 

• lOUO* » I 6 3. RE- A ( i97.8t-6,35P.7E-A(R39. |E-»»R93»9t-A»H80«Ae-4/ 

C 
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/ I NDX/ 

/ iNOX/ 

/POINTS/ 
/POINTS/ 
/V |SC*0/ 


Data <ttab( n , smuh( I I ,SfU'H2( 1 1 ,s«um?o« i ) ,shooj i > .shuohj t » ,snoo2< J » 

1 I IDO. , 17<4.2E-iS, 210»5E** iS’a*^^-******^. | »Se«AtSI U2E-*. 

? i2tO»»lf****3E-6,222»8t-A,*<26.7E-6.**»*»»uE»*»*iV^» 1 E«A ♦S**0.6E-4 » 

•\ )3tO.»l^‘*.;'>E“Ai23*l*7E*<>|*<S9.3E«6*S2G*OE“8*S2A.jE»8 • I E“* * 

«* |**,.0..2-3*5E-6,2‘*6.2E-6,*<9) • oE >6 i «><4S « 3E>8 • &&2 • SE>6 • • 8E-6 » 

•; H.tO. .?12.9E-A,?6 7.5E-6,S.2I . 7 E -6 , 6 7 0 » 2E- A i 57 7 » »E»6 , . OE-6 » 

/ 16^,0* •221 •8E“<ii 258.5E“6,S6| i6E*6»59^.7f»A»6D2*7t*4.550»VE“6» 

7 I 7tO. ,2 3U.7E-4,27 9.2E-6 ,5P0.7E-6t*19OE-4»*27»0E-4i47 7»BE-4* 
|BD0.*23^.3E”5,26^»7E''/>|5C(^.0E"4»4M2»9E«At4S0*7tfc4»703»7E“5» 

9 19^,0. ,2*»7.»E-6,3CiOiOE-6,6 36.7t-6.444. I f-* » 57 3 » »E-5 • 72’ » 0E“5 t 

• 7fj^0.«255.2E“5,3i0»iL*<i,55 3»7E-4.5«f>.8E-5»694»7E«5.753.8E“5/ 

Data ITTAB(n*SMUHlII ,SMUH2 I I 1 ,SMLIH20( t J ,SHUO( 1 J »ShUOhC I » ,SMU02( I I 

• |I>2I«3U)/ 

1 2100. .25**. jE- 6, 320. IE-5,69 ';,iE-6,7|| .UE*5*7|9. I E-5 . 778 . 2E-5 . 

2 22d0. .27 2.*IE-5,32’.8E-5,7 I4.oE-5.7 32.’C-5*7‘*|.oE»5.8o 2« |E“5t 

3 23l.0..28D*3E-5,3 3’.‘»E-fc,7Hi.3E-6 . 7 5*( . 3E>5 • 7 5 7 . 4E<^5 • 828* 5E>5 t 

4 2*li0..2eA.IE-4,3‘*p,VE-6,7A6.2E-4i7 75.5E-4i783.’E-4.B**8.7E-6» 

5 25dO. .2’5.8E-5|358.2E*5,7Vi;.5E.-5,7 94»3E»5*8D*(.’E»4>87I«5E«5i 
A 25U0. i3l 3.9E-5,357.3E-6,8 I *♦ . 5E *5 . 8 I 4 . 8£-4 t B2S . 5E -5 • 8’** . OE-5 » 

7 27o0..3lu.’E~5,374.HE-5,838.0E-5.fl37.0E-5.e**6.9E«4»’l5»|E“5, 

H 2Bv0..3»8.2E-5,385.3t-5,B4I.IE-5,8S4.»E“5»844.0|74.937.»E-4, 

9 ?9._^j),,325.5E-6,3’*».lE”5,Bfl3.8f.-4,e74.5E-4.885.8E«4,95’.5E“5. 

• 3Ui.0».332.7t-4,‘*C2.eE*6,9C6.IF-5,894«lF-A.9u5.*»E-4.980.7E-5/ 


data (TTABCl»,SMUH(I)|SMDH2lI).SMUH20iI) ,SMUU I I ) . SMUOH | | I ,SMU02 I I 1 

• . I I , *1 Jl / 

1 3ll.0..339.RE-4,4 11.5E*4,92H.0E-4,V|5,3E-4,92**.8C-4t4 00l.E-4» 

2 32i:0. . 3**5.9E-5,*(2n.Ufc»6,V4(9,AE-A.934,2C“6.9.|3.9t-4ii022.E-4» 

3 33i.O. .3S3.RE-4,‘*28.*4E-5,97l . I E >4 . **S 3 « OF-5 • 94 2 . 8E-4 . 1 O’ 3 • E>5 > 

4 3**.,0. .34i>.7E-5,H34.7E9A ,99 2,2E-4.97 I . 4E~4 . 9(t 1 . BE-4 1 1 q 53 . E'5 » 
r, 35i^0.»367.5E-6, 444.9E-4,IDl3.t-4.*i'P9,9E-4.| UPU. E'4 » I p 8 3.E“4 » 

4 34vi0. .374.2E-5,453*IE-4 ,Jj33.E-4,I uOB .E“ 4 ilbl8.Ett4.lt03.E-4. 

7 37t,0..3H;i.9E-4,44|.2E-4,l0S3.F-4,lo24.E-4.lb35.E-4.1l23.E-4, 

B 3«i.U..387.5E-6,‘*49,2E-4,U'73.F.-4,lt'‘<3.r-B.lo5‘*.t44iIl**2.E-4. 

9 3 ’DO. .394,iE-4,477.1C-4,109 3.E-4.lc.4I.E-4.lt(7 2.E-4.1|5l,C-4. 

• ’ilCO. .BnD.AE-A ,4Bb.0E-4,in2.E-4tlC<79.E>A.|09U.e-4.||8|.E-’4/ 

DaTa ITTaBlI>.SMUH(IliSMUH2tII.S**UH2O(I),SHUOCn,SMU0H|I»,5M002»I) 

• .1-91.5'J)/ 

1 ‘IIOO..*»l'7.tE-4,H9 2.7E-6, I I 3 1 • E-4 . I 094 . E-4 • I i p7 . E-4 m 99 . E>4 > 

2 ’2D0. .‘*l3.Rt“4.50O.5E-4,ll5u.£-4,ll | 3 .E-B .ll2‘«.Ctt4»12l8.C-4t 

3 4 3C0. .*«l9.7E-4t50R.|C-4,tl49.E-4.l|30.E>4.||<t2*t84.t23^7.E-4i 

4 ’ToO* .*4 24. jE-4 .515.7E-4, II 8 S. t -4 , I I *i7.E-4. I I 5’. £44. I 255. E-4. 

^ ’Sui). .**32.2t-4,&23.2£-4,12C6.E-4,l I 44.E-B. ) I 7 4,t*4» 1 2 7**. £-4, 

4 '*4„0» .**38.‘tE-4,530.7f.-o, 1 22i.t-4, nflO.E-4. I > 92 . E-4 1 | 2 ’2 . E-4 • “ 

7 **7bO..‘*”«5E-4,53B. IE-4,1 2** 3. E-4. 1 19 7. £-5, I 2o’ . t-4 » I 3 1 0 . E-5 • 

B 4H00. «**5<;.5E-4,5>«5.5E-4 , 1241 .£-4. I 2I3.E-5. I 2 25 . £^4 1 1 328 . £-4 • 

9 **9,^0. .**54.4E-4,5S2.8E-4, I 2 70. E-4. I229.E-8. I 2<*2 • E^A 1 1 3’4 * E-4 t 

• SlICO. •**62.AE-4,540.0C-6,l?94.E-4.l2*«4.E-4.l258.e44fl353.E-4/ 
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u u 


DATA SHUN/ 

1 A7>V I23« lE -61 I A6.6|r-6«2o3*7E>A<237*ge”A»2A7f 

2 29AtOE-6i322.6E-6 t 3‘*7.9 e-6,372.3E-6* 

3 39A.<4K*A,<4 |9.9E>Ai**<«2,<tE.6,<«AH.3r>*»9tS*4E-*«B0«*<*E*«i 

4 524. 7E-(S, 5*46. 4E-6i544, lE-*,5«S.2f-A, 

5 6 3 3.9E-6 ,62 2. 4C-4 i6‘*0,5e- 6 t4SB.3E-6t676.9E-AJA93»2E*4i 

6 7ia.3f-4,727.2E-6i7H3,8E-6,76o.3E-6, 

7 774.5t-6.792.6E-6i808,5e-6,829.2E-6t«39.7E-6,a55.1E-6» 

9 87g.4E'*6,8a4.5E-6.9ua,‘«E-6,9t5.3E-6t 

9 929.9t-6,9M‘4.St-6.958,9r-6,973.3E-6.*87.5t-6«l00l»6E-6, 

» IUl5.6t -6,l*j29.‘4E-6,I JH3.2E-6, IU5«.9£.6/ 

data smuno/ 

I 69.at>6,l36.5E-6i I <4 2 , jr >6 , 239 . 7 e»6 , 28 2 .OE-6t32u* 5E”6 t 

7 356.2C-6,389.9e-6»'42I * 9 ^--4 , <tS 2 . H£-6 t 98 1 . 6E*‘6 , 509 • SE>6 • 536 • 9E>6 t 

3 562.5E-4i588.JE-6,6«2.V£-A,637.6K-6.662. 1 1 - 6 , 686 * 9 Er 6 » 709 . 8 E -6 t 

9 732.«E-6 , 755 . 9E-6 I 7 77.6^-A,7V9,9t-6,820»9t“6,892. 1 E*6 »863»0t"6 » 

A Bfl 3 . 5 £->*, 9 ) 3 . 9 (r- 6 * 923 «V^-/, , 993 .be- 6 , 963 . 3 f 6 , 98247 E- 6 » 

A Jfljl.9£-6,lj2j.flE-6tlU39.6f:-6.1ij5«.lt-4« 1076,SE-S . I09H. 7E“6 1 
7 i:i2.BE“6,ll3v.6E-6,||‘»B.4fr-6tlJ65.9E»6tl »83«3E-6, 1 200 « 6 E’* 6 » 

9 1217.BE-6. I 239.8E-6 . 125 1 .7E-6 . 1268.9E-4, 1285* IE-6/ 

data SMDN2/ 

1 72.9E-6,I3I.3e-6.) 7 7 . 7 e> A , 2 I 7 . 2E- 6 . 252 . 7k-6 , 28$ . <4E*6 t 

2 3(5.6F-«i3‘44.,!F:-A,37l.|iE-A,3V7.1E-6, 

3 ‘422.7r-6,997.nr-6,'4 7i . f< £-a , 9VS , 2t*6 ♦ 5 I 7 . Vt-6 , 590 » lE-6* 

9 5AS.7E-6,582.9E-.6t6u3.7£-A,629.,jk-6, 

r, 69 h.0F-6,663.7f- 6 t683.UE-4,7u2. lC-6,720.*t-6,739,3£-6* 

6 757.5E>6,77S.5£«6,793.3E«6|Blu*8t.6, 

7 8 28. |E-6«a95.3E-6(e62t2F-'6t879.uE-6,e9S.5E*6,y|8*0E<.6» 

B 92B.2E-6,999.3f- 6|96C. 3£-A,97A. lt-6t 

9 99J.7F.-A , Iju7.3E-6 i I>J2 2, 7E-6. I 037 . 9k-6 , I 053 . |E- 6 , (06B. IE -61 

• tU’33»0e-6, U97.BE-6, II I2.5E-6. I 127. |E-6/ 


DD lv>b |«lt»|9T 

c 

obtain species viscosities fKOM TAHLtS, 


c 

c 

c 


I X»J 

call 

Call 

CALI. 

CALL 

call 

CALL 

CALL 

CALL 

call 


LCdPV I TTT t , ) ,T T AB.Sflun.Su. I X iCmuI I n 
LCUBV (TTT(I),TTA8,SMuM2,sO,|A,EmM2|l 
LCURV (TTT( I ) .TTAB.SMuH20,So»IX.ENIM 3) » 
LCUPV (TTTI I) >TTAB.SMuO,SO.IX|t:nu(9l) 
LCDPV (TTTI I I.TTABtSMuOH.SU.lX.LMUISli 
LCUR V ( TTT ( I ) , TT AB ,SMu0 7»!»0. I A .CMU( 6 I » 
LC'JBV ( TTt I t I ,TTAQ ,SNUf, ,Su, I X ,EOU( 7 I » 
LCUKV(TTT(tl , TT A8 .Smj^O.Su. I X .E'lU C B ) > 
LCUBV(TTT<I),TTAB.SnUn2,5U, IX.£hU(9) > 


obtain SPECIES CP AND CPPAR, CONVkHT CP-S TO CAI./GN«0C6 


CALL CPSPEC ( TTT 1 I I , I ) 

00 23 J» 1 ,NS 
CPI ( J)«CP I ( J I /FPxtT ( J| 
lF(EN(«l|I).LT.I.E-IUlCN(0,i)«I.E-m 
20 CONTINUE 
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n o 


c 

C c*' CUt-ATE viscosity EMUBAK |1N POIStbl, CONDUC T.l V t T T EKOBARt ANO 
PPAnOTL number pro from MIxTURt FOKMOtAS. 

Ehobar»c. 

EFORARbO* 

DO !l»i,NS 

Tm^T. 

UO Su JJ» I »NS 
IF ( JJ.EO. I I ItiO TO SC 

PHI ( I I , JJ)»| I ./SORT (8.* I I ..FMair ( I I »/FMPT< JJ» III* 

I ( I .♦SORT I EHU<ll>/EMUIJJIU(FHWTijj>/FMWT(I|i)P«U*fSI**2* 

TMaTM»EN(JJ«n«PHHntJJI/£NIIl,li 
So CONTINUE 
TMI»| .♦TM 
TM2.I .«! .065*TM 
EMUe»AR»EHl.lBAR»EMU( I I l/TMl 

EkOIIII • EhUI I I I * ( I • 322SUaCPI ( 1 I I ♦ U • 8S696‘<9UA2S/FhKT ( I I )) 

<40 EKJHAR a EKDBAR ♦ EKD(Ilt/xM2 

C STORE ANS-iERS. 

C 

VISCEI n•EMUHAR•0.U67^2 
Ijn PRIII a EMUBAR»CPBAR/EKDBAr 
RETURN 
LNU 
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r>r»n non n n 


SUBROUTINE ZFtJNC 

CZrUNc evaluate BOUNOART later thickness function ZtTB# 

COHHON/PfFEND/U* 2 Sbi 3 ) |H( 2 ^ 3*31 tALPHA( 2 SU« 3 t 3 ) »RHOIM 2 SO> »SM( 25 U| 3 ) 


COMNON/I^CeP /S.D5iX|D**Tt25u>,Ot 

COMNON /YTABUr/ Y T I L I 2 bu » ♦ * 25u > » BOPP < 250 1 • I T I LP » I T * » /TTABLE/ 

I CYTIL(6) /YTaBLE/ 

COMMON/LTaBLE/TRTaBI IUC»»XTA8TW(IOO»»LT»T*e»lTRxP, 
t SHDTARIIOOtXTAHHOliuOlfLNOTABtINOXP 

COMNON /zCALC/ 2 E T A 0 , z£ T A , ^E T A N , T AP , zS T AR I 3 » t OSz < 2 » » T^ET A , /ZCALC/ 

! YTZETA.YECGe /ZCALC/ 

COHMCN/A'aI LBC/T»ALL »SH«ALL,H«ALL tSMORO.SMBR.SMORN 

common /EtCiESC/ Tf Obt iSHE Dot ,HE06t »UtOGE *PEObEB, AFE06E .OUEOSO » /E06EBC/ 
I OUEOS,OUeOsK,OPEOSN /EOGEBC/ 


COMHON/MCRMAl/BLRFF.UREF»RhORCF,SMORtFtREYlMF 
COMMON/ COUNT /NY,NYIiNY2iNy3,JO,JN,ja,NEL*NELI . NSP , NM A X , N Y I 
C 

C obtain YZETA where U ■ 0.T9 • UE» 

c 

uc ICt K»l,NY 
ImNY*|.K 

TM1*ABS(IM I tJN»-UE06F)/UE.D6E 
IF (TM| ,c,E. a. OIL) bO TO bO 
TH2 • THl 
bC TO ICC 

5t Y2tTA»Y{I*ll-DY»lTH2-0.i;|)/((M2-TMn 
bO TO 22C 

IOC CONTINUE 
C 

rIND YTZETa COHRERPONOINfe To YZLTA. 

220 CALL XMTERP < Y ZE T A i Y T 7 1 T A t qUMM Y I , I Y M LP i Y , Y T I L . N Y , £ y T I L . 1 Y T I LF » 
IYTILF«I YTILP 

obtain NF.W ZETa from EDbt criterion, then UPOATf ZETAP and ZETAN. 
ZSTAR«3)«ZETAri ‘YTZET a 

ZETAP»(ZSTAR(31-7STAR«1))/(0«5Z<I>‘OS» 

ZETAM»ZETA0‘0S»2ETAP 

ZETA»0»S*(ZETAO*7ETAN» 

IjPOATE SHOWN , SHOP, 

CALL LCUPV { X*OX I X T ABMU» SMqT A8 iLHOT AM , IMOXP ,5MUPN) 
SmB*IN»Sm0*N/(Wh0ReF»UREF*2eT*N» 

SMOftRy, S« I SHORN *8110*0 I 

RETURN 

END 
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